mkbot @ [
    isPrefixed @ {$countdown },
    state -> (
        m: state!event!message!text;
        tid: state!event!message!thread_id;

        args: split @ [m, { }];
        N: eval @ args::1;
        S: len @. args > 2 ? [eval @ args::2, 1];

        forin @- [i, range @ [N, 1, ~1], (
            dm'tid @ {{i}};
            sleep @ (S * 1000);
        )]
    ),
    (
        name :> {Countdown bot} |
        syntax :> {$countdown <N> <speed=1>} |
        description :> {The Countdown Bot counts down from the supplied number N to 1}
    )
]