added hutton.hs