test :: IO ()
test = do
  let x :: Bool -> Int
      x = _
  pure ()