sub my_while(Code &expr, Code &whileblock) { while &expr() &whileblock(); }