reduceTimeMachines (x:xs) r                     = reduceTimeMachines [x] r ++ reduceTimeMachines xs r
reduceTimeMachines (x:xs) r                     = reduceTimeMachines [x] r ++ reduceTimeMachines xs r
reduceTimeMachines (x:xs) r                     = reduceTimeMachines [x] r ++ reduceTimeMachines xs r