masak

use v6;

sub MAIN(*@p) {
    die "Arguments need to be integers"
        unless all(@p) ~~ /^ \d+ $/;
    die "Arguments need to be 1..N in some order"
        unless sort(@p) ~~ [1..@p];

    say "($_)" for sort *.[0], gather for @p -> $e {
        next if (state %handled).exists($e);