Create Input.hs