Scanf.scanf "%d %d" (fun a b -> let f = Array.make 601 false in for i = 0 to a do for j = 0 to b do f.(i + j * 5) <- true done done; for i = 1 to 600 do if f.(i) then Printf.printf "%d\n" i done )