weedStatement (If ifExpression ifBlock elseBlock) = (weedExpression ifExpression)
                                                <|> (weedStatementBlock $ Just ifBlock)
                                                <|> (weedStatementBlock elseBlock)
weedStatement (If ifExpression ifBlock elseBlock) = (weedExpression ifExpression)
                                                <|> (weedStatementBlock $ Just ifBlock)
                                                <|> (weedStatementBlock elseBlock)
weedStatement (If ifExpression ifBlock elseBlock) = (weedExpression ifExpression)
                                                <|> (weedStatementBlock $ Just ifBlock)
                                                <|> (weedStatementBlock elseBlock)