sprintf and print question

[ToddAndMargo via perl6-users]

Hi All,

Is there a cleaner way to do this?

    $ raku -e 'print( (sprintf "%.4s", "andefghi" ) ~ "\n";)'
    ande

I want to print the first four letter s to STDOUT.

-T