(down i(-(len:= a(coerce(readline)'cons))1)0 #0=(n-of i(pr" "))(apply prs(cut a i))#0#(prn))