rogram = (\_ _ vi _ s _ _ vo _ -> Program vi s vo) <$> pTProgram
                                                     <*> pTLParen
                                                     <*> pTVar
                                                     <*> pTRParen
                                                     <*> pSec
                                                     <*> pTResult
                                                     <*> pTLParen
                                                     <*> pTVar
                                                     <*> pTRParen

pProgram = (\_ _ vi _ s _ _ vo _ -> Program vi s vo) <$> pTProgram
                                                     <*> pTLParen
                                                     <*> pTVar
                                                     <*> pTRParen
                                                     <*> pSec
                                                     <*> pTResult
                                                     <*> pTLParen
                                                     <*> pTVar
                                                     <*> pTRParen
pProgram = (\_ _ vi _ s _ _ vo _ -> Program vi s vo) <$> pTProgram
                                                     <*> pTLParen
                                                     <*> pTVar
                                                     <*> pTRParen
                                                     <*> pSec
                                                     <*> pTResult
                                                     <*> pTLParen
                                                     <*> pTVar
                                                     <*> pTRParen