xclock -digital -face 'Times-96' -strftime '%l:%M %p'

xclock -digital -face 'TypeWriter-96' -strftime '%l:%M %p'

#!/usr/bin/env raku
for qx[fc-list : family].lines -> $font {
    say $font;
    my $p = Proc::Async.new: «xclock -digital  -face "$font-100" -strftime '%l:%M %p'»;
    $p.start;
    sleep 3;
    $p.kill;
}