use v6-alpha;
# based loosely on http://www.perlmonks.org/?node_id=199499 
# domm@zsi.at

for([<j 1 t 3 l c 7>],[<u a h P 5 k>],[<s n e e h e>],
[<t o r r a r>])->$J,$A,$P,$H{for each(@$J;@$A;@$P;@$H)
->$j,$a,$p,$h{print map {$_~~/\d/??" "!!$_},$j,$a,$p,$h}
};say

