doInstruction s (RotateL x) = drop (x `mod` length s) s ++ take (x `mod` length s) s
doInstruction s (RotateL x) = drop (x `mod` length s) s ++ take (x `mod` length s) s
doInstruction s (RotateL x) = drop (x `mod` length s) s ++ take (x `mod` length s) s