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());