Modify from file input to array(Haskell) close #19