PGE::OpParser example

$I0 = find_type "PGE::OpParser"
opp = new $I0
store_global "opparser", opp

opp."addop"("infix:+")                            # infix:+
opp."addop"("infix:-", "infix:+")                 # equiv(infix:+)
opp."addop"("infix:*", "infix:+", ">")            # tighter(infix:+)
opp."addop"("infix:/", "infix:*")                 # equiv(infix:*)

opp."addop"("prefix:+", "infix:*", ">")           # tighter(infix:*)
opp."addop"("prefix:-", "prefix:+")               # equiv(prefix:+)

opp."addop"("circumfix:( )", "prefix:+", ">")       
opp."addop"("postcircumfix:.[ ]", "circumfix:( )") 

opp."addop"("infix:=", "infix:+", "<", "right")   # looser(infix:+)
opp."addop"("infix:+=", "infix:=", "", "right")   # equiv(infix:=)