hyperize.raku

use v6.*;

{
    multi sub hyperize(&code, '«') {
        sub (@little, @large) {
           ((@little xx *).flat Z @large).flat.map(&code)
        }
    }

    my &hyper-assume = hyperize({&^a.assuming($^b)}, '«');

    sub sc($_) {
        .words».&{ hyper-assume((&lc, &uc), .comb)».().join }
    }
    for ^10 {
        say sc "sarcasmcase FOR YOU";
    }
    say now - ENTER now;
}