(define tarark (λ (pl)
                 (set-player-flag! "tarark" (new-timer (thunk (kill pl)) 12))
                 (sendmsg (string-append "The chill of " (colour 'red) "death" (colour 'reset) " runs through your veins.") pl)))