((= n(read)f[or(<(* 4 n)len._)(for i 1 3(f:+"    "(prn:cut(+ _"."i)1)))])"")