run n = do
    rawp <- getPost n

    let eps = rights $ [A.parseOnly stripBBCode rawp]

    forM_ eps T.putStrLn
run n = do
    rawp <- getPost n

    let eps = rights $ [A.parseOnly stripBBCode rawp]

    forM_ eps T.putStrLn
run n = do
    rawp <- getPost n

    let eps = rights $ [A.parseOnly stripBBCode rawp]

    forM_ eps T.putStrLn