doInstruction s (RotateR x) = reverse $ doInstruction (reverse s) (RotateL x)
doInstruction s (RotateR x) = reverse $ doInstruction (reverse s) (RotateL x)
doInstruction s (RotateR x) = reverse $ doInstruction (reverse s) (RotateL x)