evalable6

query

my $l = Lock.new; my %h; for 1..10 { my $p = start { sleep rand; $l.protect: { say "-- ", $p.WHERE; say %h.elems; %h{$p.WHERE}:delete; say %h.elems } }; say "+",

result

(exit code 1) 
===SORRY!=== Error while compiling /tmp/uT0CK3r5TY
Missing block
at /tmp/uT0CK3r5TY:1
------> HERE}:delete; say %h.elems } }; say "+",⏏<EOL>
    expecting any of:
        postfix
        prefix
        statement end
        statement modifier
        statement modifier loop
        term