= do
  let a  = 5 :: Int
      b  = 7 :: Int
      fr = add %*.** mult
      r  = fr a b 3       -- 38
      -- r' = fr $ a b 3  -- invalid
      r' = add %*.** mult *§ a b 3
  print r

main :: IO ()
main = do
  let a  = 5 :: Int
      b  = 7 :: Int
      fr = add %*.** mult
      r  = fr a b 3       -- 38
      -- r' = fr $ a b 3  -- invalid
      r' = add %*.** mult *§ a b 3
  print r
main = do
  let a  = 5 :: Int
      b  = 7 :: Int
      fr = add %*.** mult
      r  = fr a b 3       -- 38
      -- r' = fr $ a b 3  -- invalid
      r' = add %*.** mult *§ a b 3
  print r