showGt a b = do
  let
      g1 x y = if x >= y then show x else g2 x y
      g2 x y = g1 y x
  putStrLn (g1 a b)