((fn f[_ x](prn x)(#(f(prn(+% x))%)(read)))0(read))