1test :: Bool -> IO ()
2test b = do
3  putStrLn "hello"
4  _
5  pure ()
6
7