p6.p6

sub calculate-things (Junction $n) {
    say "$n is a prime"        if $n.is-prime;
    say "$n is an even number" if $n %% 2;
    say "$n is pretty big"     if $n > 1e6;
    $n²;
}

my @values = 1, 5, 42, 1e7.Int;
say 'EXACTLY ONE square is larger than 1e10'
    if 1e10 < calculate-things @values.one;