test :: IO () test = do testcase <- readFile "bbcode.txt" putStrLn $ concatMap showBBCode $ disassembleBBCode testcase