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