reduceTimeMachines :: [TimeMachine] -> Double -> [TimeMachine]
reduceTimeMachines [] _                         = []
reduceTimeMachines :: [TimeMachine] -> Double -> [TimeMachine]
reduceTimeMachines [] _                         = []
reduceTimeMachines [] _                         = []