solver_2 :: [Room] -> [Room]
solver_2 =
  filter isRealRoom
  |> fmap decode
  |> filter (isInfixOf "northpole" . hash)
solver_2 :: [Room] -> [Room]
solver_2 =
  filter isRealRoom
  |> fmap decode
  |> filter (isInfixOf "northpole" . hash)
solver_2 =
  filter isRealRoom
  |> fmap decode
  |> filter (isInfixOf "northpole" . hash)