imports
{
import UU.Scanner.Position(Pos)
import CommonTypes
}
TYPE VisagePatterns   = [VisagePattern]

DATA VisagePattern    | VConstr     name  : {Constructor}
                                    pats  : VisagePatterns
                      | VProduct    pos   : {Pos}
                                    pats  : VisagePatterns
                      | VVar        field : {Name}             
                                    attr  : {Name}
                      | VAlias      field : {Name}
                                    attr  : {Name}
                                    pat   : VisagePattern
                      | VUnderscore pos   : {Pos}