conditional :: Parser Statement
conditional = do reserved "if"
                 condition <- booleanExpression
                 reserved "then"
                 trueStatement <- statements
                 reserved "else"
                 falseStatement <- statements
                 return (If condition trueStatement falseStatement)
conditional :: Parser Statement
conditional = do reserved "if"
                 condition <- booleanExpression
                 reserved "then"
                 trueStatement <- statements
                 reserved "else"
                 falseStatement <- statements
                 return (If condition trueStatement falseStatement)
conditional = do reserved "if"
                 condition <- booleanExpression
                 reserved "then"
                 trueStatement <- statements
                 reserved "else"
                 falseStatement <- statements
                 return (If condition trueStatement falseStatement)