# $Id: strcat.parrot,v 1.0 2002/08/20 17:29:00 dada Exp $
# http://dada.perl.it/shootout/

    set I0, P0[1]

    set S0, ""
    
LOOP:
    concat S0, "hello\n"
    dec I0
    if I0, LOOP

    length I0, S0
    print I0
    print "\n"
    end