# This was originally contributed by Karsten Strum
# (say (advice (1 (time < 50) (do our { 5 } (mark { 7 })) (do our { 8 }
# (mark { 3 })))))
# I modified it as follows to conform to version 8 clang
(define (definerule kstrum direc ( (time < 50) (do our { 5 } (mark { 7 })) (do our { 8 } (mark { 3 })))))
(rule (on kstrum))