let rec f l p q=Printf.printf"%d "p;q<159&f(q::l)q(g q(q::l)1)and g q l i=if List.mem i l||q@i=1then g q l(i+1)else i and(@)q i=if i=0then q else i@q mod i;;f[1]1 2
Note that non-ascii characters in the above source code will be escaped (such as \x9f).