trilogy / samples / negpattern.tri

proc matcher!(x) {
    match x {
        case -y { return y }
        case 'a(y) { return y }
    }
}

proc main!() {
    exit matcher!(5) + matcher!('a(5));
}