translate
  :: Matrix.Matrix [a] -- ^ `Matrix` to move within bounds of
  -> Position -- ^ Starting `Position`
  -> String -- ^ List of directions to move
  -> Position -- ^ Final position after performing movements
translate _ position [] = position
translate
  :: Matrix.Matrix [a] -- ^ `Matrix` to move within bounds of
  -> Position -- ^ Starting `Position`
  -> String -- ^ List of directions to move
  -> Position
translate _ position [] = position
translate _ position [] = position