module B where

b :: IO ()
b = return ()