quickrun.el outputter sample

test.pl

#!perl
use strict;
use warnings;
use utf8;
binmode STDOUT, ":utf8";

my @chars = qw/あ い う え お/;
for my $i (1..10) {
    print $chars[ int(rand(scalar @chars) ) ] . "っぱい\n";
}
__END__
#  (defface oppai-face '((t (:height 2.0 :bold t :underline t))) nil)
#
#  Local Variables:
#  quickrun-option-outputter: (lambda () (highlight-phrase "おっぱい" 'oppai-face))
#  End:
#