ubuntu@ubuntu:~$ perl6
> my &code = { ->\c,\m{for ^c {.[+*]=[+] .[*X-1,2]for m;m[+*]=[m[*-2;*] »+«m[*-1]]};m} }
===SORRY!=== Error while compiling <unknown file>
Quantifier quantifies nothing
at <unknown file>:1
------> ,\m{for ^c {.[+*]=[+] .[*X-1,2]for m;m[+⏏*]=[m[*-2;*] »+«m[*-1]]};m} }
    expecting any of:
        postfix
        statement end
        statement modifier
        statement modifier loop
        prefix or term
        prefix or meta-prefix
> my &code = { ->\c,\m{for ^c {.[+*]=[+] .[*X-1,2]for m;m.push: [map {[+] m[*X-1,2;$_]},m[0].keys]};m} }
===SORRY!=== Error while compiling <unknown file>
Quantifier quantifies nothing
at <unknown file>:1
------> [+] .[*X-1,2]for m;m.push: [map {[+] m[*⏏X-1,2;$_]},m[0].keys]};m} }
    expecting any of:
        argument list
        prefix or term
        prefix or meta-prefix
>