HOW TO RETURN look.and.say seq:
    PUT "" IN result
    PUT 0 IN n
    PUT "" IN c
    FOR ch IN seq:
        SELECT:
            c=ch:
                PUT n+1 IN n
            ELSE:
                IF n>0: PUT result^"`n`"^c IN result
                PUT 1 IN n
                PUT ch IN c
    RETURN result^"`n`"^c

PUT "1" IN item

FOR i IN {1..14}:
    WRITE item/
    PUT look.and.say item IN item