perl6 native calls

slava@dogbert:~/.perl6/2013.05/lib$ perl6
> use NativeCall;
Nil
> sub simple() returns Int is native('libsimple') { * }
sub+{native} simple() { ... }
> say simple();
5
>