@@ -424,7 +424,7 @@ verbTok stopchar = do
424424 Just i -> do
425425 let (t1, t2) = T.splitAt i txt
426426 inp <- getInput
427− setInput $ traceShowId $ Tok (lin, col + i) Symbol (T.singleton stopchar)
427+ setInput $ Tok (lin, col + i) Symbol (T.singleton stopchar)
428428 : (totoks (lin, col + i + 1) (T.drop 1 t2)) ++ inp
429429 return $ Tok (lin, col) toktype t1
430430