f:openr("/dev/fd/0");while stringp(a:readline(f))do(for i while(ssubst("",(b:substring(a,1,i+1)),a)#"")do 0,printf(?t,"~d
",b));