>>4

sub list { eval '['.(join ',[', @_).']'x@_ }
sub liststar { my $x=pop; (map { $x = [ pop, $x ] } @_)[-1] }