let(!),t,s=String.length,read_line(),read_line();;for i=0to!t-1do for j=0to!s-1do for k=0to!s-1do Printf.printf"(%c%c%c)"s.[j]t.[i]s.[k]done;print_newline()done done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).