sub ret_simple_formatter {
    my $fmt = shift;
    return sub {sprintf($fmt, shift);};
}