gistfile1.perl

pmichaud@orange:~/rakudo$ cat x3.pir
.loadlib 'math_ops'

.sub 'main' :main
    .local string s
    .local pmc sb
    .local int n

    $I0 = rand 10000
    s = $I0
    sb = new ['StringBuilder']
    n = 1
  loop:
    unless n < 25000 goto done
    $I0 = rand 10000
    $S0 = $I0
    sb = concat sb, ', '
    sb = concat sb, $S0
    inc n
    goto loop
  done:
    $S0 = sb
    $I0 = length $S0
    say $I0
.end
pmichaud@orange:~/rakudo$ parrot_install/bin/parrot x3.pir
Multiple Dispatch: No suitable candidate found for 'concatenate_str', with signature 'PSP->P'
current instr.: 'main' pc 22 (x3.pir:16)
pmichaud@orange:~/rakudo$