# Concatenate a number of symbols.

print concat('abc', 5), $/;

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