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