Cleaning shanon.hs output