$mode ascii
(i:=#l:=(bag 1,a="
")bag a:=sys.read{0;a;#a}take a:=1e4 form 0)do drop drop t:=-1 drop >l[i];