diff --git a/src/Instructions/GenericInstructions.hs b/src/Instructions/GenericInstructions.hs
index 1758e2b..872fff1 100644
--- a/src/Instructions/GenericInstructions.hs
+++ b/src/Instructions/GenericInstructions.hs
@@ -157,7 +157,6 @@ instructionYankDup state@(State {_int = i : is}) accessor =
   else state
 instructionYankDup state _ = state
 
--- int non generic too
 instructionYank :: forall a. State -> Lens' State [a] -> State
 instructionYank state@(State {_int = i : is}) accessor =
   let
@@ -171,7 +170,7 @@ instructionYank state@(State {_int = i : is}) accessor =
   if notEmptyStack state{_int = is} accessor then deletedState & accessor .~ item : view accessor deletedState else state
 instructionYank state _ = state
 
--- instructionShoveDup and instructionShove behave differently when indexing in such a way that
+-- In pysh, instructionShoveDup and instructionShove behave differently when indexing in such a way that
 -- the duplicated index matters whether or not it's present in the stack at the moment of calculation.
 -- I'm not going to keep this behavior. Check out interpysh examples for how pysh handles it.
 instructionShoveDup :: State -> Lens' State [a] -> State
diff --git a/src/Instructions/StringInstructions.hs b/src/Instructions/StringInstructions.hs
index 0c7073a..c26aada 100644
--- a/src/Instructions/StringInstructions.hs
+++ b/src/Instructions/StringInstructions.hs
@@ -94,8 +94,6 @@ instructionStringInsertChar state@(State {_string = s1 : ss, _char = c1 : cs, _i
 instructionStringInsertChar state = state
 
 instructionStringContainsChar :: State -> State
--- instructionStringContainsChar state@(State {_string = s1 : ss, _char = c1 : cs, _bool = bs}) = state{_string = ss, _char = cs, _bool = (findSubA s1 [c1] /= -1) : bs}
--- instructionStringContainsChar state = state
 instructionStringContainsChar state = instructionVectorContains state char string
 
 instructionStringIndexOfChar :: State -> State