circuit :: Stream s m Char => ParsecT s u m [Stmt String]
circuit = do
    whiteSpace
    stmts <- catMaybes <$> semiSep1 (optionMaybe stmt)
    eof
    return stmts
circuit :: Stream s m Char => ParsecT s u m [Stmt String]
circuit = do
    whiteSpace
    stmts <- catMaybes <$> semiSep1 (optionMaybe stmt)
    eof
    return stmts
circuit = do
    whiteSpace
    stmts <- catMaybes <$> semiSep1 (optionMaybe stmt)
    eof
    return stmts