(down i(-(= a(readline)b len.a)1)0(for j(+ i 1)b(prn:cut a i j)))