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;;