open Printf
let rec f x y =
  if x = 9 && y = 9 then printf "%dx%d=%d\n" x y (x*y)
  else if y = 9 then
    begin printf "%dx%d=%d\n" x y (x*y); f (x+1) 1 end
  else
    begin printf "%dx%d=%d\n" x y (x*y); f x (y+1) end;;
f 1 1
