Agregar instrucciones `like arpeggio`

[gustavoaca1997]

legato Tree {
    leaf: quarter,
    node: Melody<Tree>
}

sum(tree: >Tree, acc: >quarter): quarter {
    like arpeggio tree {
        (x: leaf) -> {
            acc <-> acc + x|
        }
        (xs: node) -> {
            loop idx {
                sum(xs[idx], acc)|
            } in (length(xs))
        }
    }
}

moderato() {
    tree: Tree <-> Tree(node: [
        Tree(node: [
            Tree(leaf: 0),
            Tree(leaf: 1)
        ]),
        Tree(leaf: 2),
        Tree(node: [
            Tree(leaf: 3),
            Tree(node: [
                Tree(leaf: 4)
            ])
        ])
    ])|

    total: quarter <-> 0|
    sum(tree, total)|
    |>(total)|          -- this should print 10
}

[gustavoaca1997]

chord Person {
    name: Melody<half>,
    age: quarter
}

moderato() {
    persons: Melody<Person> <-> [
        Person("David", 23),
        Person("Andres", 23),
        Person("German", 22),
        Person("Gus", 22),
        Leonardo("Leonardo", 23)
    ]|

    loop idx {
        like arpeggio persons[idx]
            (name, age) -> {
                |>("Se llama", name, "y tiene", age)|
            }
    } in (length(persons))
}

[gustavoaca1997]

Abrir llaves después del identificador es opcional. Si no se abren llaves entonces se usará solo un patrón, sea legato o acorde.