Just playing with Main.hs