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