m:-readln([A]),B=round(A/6),C is 44-A+6*B,format("~a = 6 * ~d ~c 1 ",[A,B,C]),m.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page