1```haskell
2go OutsideCode ("```haskell-top" : rest) top bot = go InHaskellTop rest top ("" : bot)
3go OutsideCode ("```haskell" : rest) top bot = go InHaskell rest top ("" : bot)
4go OutsideCode (_ : rest) top bot = go OutsideCode rest top ("" : bot)
5```