# Based on https://rosettacode.org/wiki/Man_or_boy_test#Raku (April 2024) sub A($k is copy, \x1, \x2, \x3, &x4, &x5) { my &B = { A --$k, &?BLOCK, x1, x2, x3, &x4 } $k ≤ 0 ?? x4() + x5() !! B } say A 13, {1}, {-1}, {-1}, {1}, {0} say now - INIT now; say A 19, {1}, {-1}, {-1}, {1}, {0} say now - INIT now;