gistfile1.e

array2string(a : ARRAY[G]) : STRING is
    local
        k : INTEGER
    do
        Result := "<< "
        from
            k := a.lower
        until
            k = a.upper
        loop
            Result := Result + a.item(k).to_string
            if k + 1 = a.upper then
                Result := Result + " >>"
            else
                Result := Result + ", "
            end
            k := k + 1
        end
    end