add parse program(by haskell)(incomplete implement)