let print_qq =
  let rec iter_left a b =
    if 10 > b then
      (Printf.printf "%dx%d=%d\n" a b (a * b); iter_left a (b+1))
    else ()
  in
  let rec iter_right a =
    if 10 > a then
      (iter_left a 1; iter_right (a+1))
    else ()
  in iter_right 1
;;

print_qq
;;

