added input.hs