added Snarf.hs