report ::(Location,Container) -> String
report (location,container) = show container ++
                            " in the " ++
                            show location
report ::(Location,Container) -> String
report (location,container) = show container ++
                            " in the " ++
                            show location
report (location,container) = show container ++
                            " in the " ++
                            show location