bathroomCode
  :: Matrix.Matrix String -- ^ Grid to solve for
  -> Position -- ^ Starting `Position` (y, x)
  -> String -- ^ Input `String` of movement instructions
  -> String -- ^ Bathroom code
bathroomCode m origin = decode m "" origin . lines
bathroomCode
  :: Matrix.Matrix String -- ^ Grid to solve for
  -> Position -- ^ Starting `Position` (y, x)
  -> String -- ^ Input `String` of movement instructions
  -> String
bathroomCode m origin = decode m "" origin . lines
bathroomCode m origin = decode m "" origin . lines