c:charlist;thru 100 do([a,b]:split(?read\-line()," "),s:"",for i in c(a)do for j in c(b)do(printf(?t,"~a~a~a",s,i,j),s:" "),newline());
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page