open String
let rec($)i s=print_endline(sub(s^s^s)i 30);i-i/i$s;;read_int()$"apple"^make 25'*'