my $i = '';
    for (1 .. $_[0]) { $i = $i . $sym }