let ()  =
  let rec make_string_w n = if n = 0 then "\n"
                            else "#" ^ make_string_w (n-1)  in
  let rec make_string_h n s = if n = 0 then ""
                              else s ^ make_string_h (n-1) s in
  let pair = ref (0, 0) in
  while pair := Scanf.scanf "%d %d\n" (fun h w -> (h, w)) ; !pair <> (0, 0)
  do
    make_string_w (snd !pair)
    |> make_string_h (fst !pair)
    |> Printf.printf "%s" ; print_newline()
  done ;;
