add Util.hs