Resolves issue with parsing comments

src/Research.hs

@@ -1,10 +1,11 @@
 module Research where
 
-import Data.List (intercalate)
 import Control.Monad.State
-import qualified Data.Map as Map
+import Data.List (intercalate)
 import Data.Map (Map)
 
+import qualified Data.Map as Map
+
 data T = Leaf | Stem T | Fork T T
   deriving (Show, Eq, Ord)
 
@@ -36,7 +37,7 @@ _K = Stem Leaf
 
 -- Identity
 -- We use the "point-free" style which drops a redundant node
--- Full _I form (SKK): Fork (Stem (Stem Leaf)) (Stem Leaf)
+-- Full I form (SKK): Fork (Stem (Stem Leaf)) (Stem Leaf)
 _I :: T
 _I = Fork (Stem (Stem Leaf)) Leaf