Restricted.rakumod

constant $stdin-text = qq:to/EOH/;
I ♥ Raku!
1 22 333 4444 55555 6565656
3.14159265358979323846264338327950288419716939937510582097494459
A line with the number 42.
We may need some "quotes".
\c[END OF TEXT]
EOH

sub fake-lines {
    gather .take for $stdin-text.split("\n");
}

sub EXPORT {
    IO::Path.^can('new')[0].wrap( -> | { die 'Restricted in evalbot.' });
    Proc::Async.^can('new')[0].wrap( -> | { die 'Restricted in evalbot.' });
    &lines.wrap(&fake-lines);
    %( )
}