sub blazar {
    local $_=reverse $str;
    my ($cnt,$txt)=$maxlen;
    $txt.=chop while $cnt--;
}