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```