{ "0 2 * * SUN" "5/10 * * * *" "6/10 * * * *" "0 3 * * SUN" "*/1 * * * *" "*/1 * * * *" "0 1 * * SUN" "2/20 * * * *" "3/20 * * * *" "4/20 * * * *" "30 4 * * SUN" "18/20 * * * *" "19/20 * * * *" "0 4 * * SUN" "2 4 * * SUN" "0 5 * * SUN" "3/6 * * * *" "4/6 * * * *" "30 5 * * SUN" "13/20 * * * *" "14/20 * * * *" "0 6 * * SUN" "4/5 * * * *" "5/5 * * * *" "0 */2 * * *" "10 */2 * * *" "12 */2 * * *" "*/27 * * * *" "*/22 * * * *" "0 4 * * SUN" "5 4 * * SUN" "0 0 * * SUN" "3/5 * * * *" "4/5 * * * *" "0 0 * * *" "30 0 * * SUN" "*/15 * * * *" "*/16 * * * *" "30 0 * * SUN" "3/15 * * * *" "4/15 * * * *" "0 7 * * SUN" "* */4 * * *" "0 8 * * SUN" "3/5 * * * *" "4/5 * * * *" "0 9 * * SUN" "2/5 * * * *" "3/5 * * * *" "0 10 * * SUN" "7/15 * * * *" "8/15 * * * *" "8 */6 * * *" "9 */6 * * *" "0 */7 * * *" "0 11 * * SUN" "6/10 * * * *" "7/10 * * * *" } [ parse-cronentry 500 now end-of-hour next-times-after [ timestamp>unix-time ] map ] zip-with [ first2 [ 2array ] with map ] map concat [ nip ] collect-key-by sort-keys 6 hours hence timestamp>unix-time '[ _ before? ] filter-keys now end-of-hour timestamp>unix-time >integer '[ _ - 60 /i ] map-keys