compile & run with:
ghc --make -fth Main.hs
./a.out