diff --git a/src/Instructions/CharInstructions.hs b/src/Instructions/CharInstructions.hs
new file mode 100644
index 0000000..9b59a11
--- /dev/null
+++ b/src/Instructions/CharInstructions.hs
@@ -0,0 +1,10 @@
+module Instructions.CharInstructions where
+
+import State
+import Instructions.GenericInstructions
+
+instructionCharConcat :: State -> State
+instructionCharConcat state@(State {_char = c1 : c2 : cs, _string = ss}) = state{_char = cs, _string = [c1, c2] : ss}
+instructionCharConcat state = state
+
+