sub make_suffix_appender {
        my $suffix = shift;
        return sub {
            return $_[0] . $suffix;
        }
    }