further cleaning

modified:   main.hs
	modified: main
		using mapM and point free notation