007/104: pwd

src/pwd.hs

@@ -0,0 +1,9 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+
+import Prelude            (IO, putStrLn)
+import Control.Monad      ((>>=))
+import System.Directory   (getCurrentDirectory)
+
+main :: IO ()
+main = getCurrentDirectory >>= putStrLn
+