-- parses a line from the input file
-- returns a (floor_number, list_of_items)
parseFloor :: String -> (Int, [(Char, String)])
parseFloor "" = (-1, [])
parseFloor :: String -> (Int, [(Char, String)])
parseFloor "" = (-1, [])
parseFloor "" = (-1, [])