(infix-operators
 ( 90 (:colon        yfx     "" ":"))      ;xxx
 ( 90 (pascal:pointer fx     "↑")
      ;; (pascal:set fx     "SET OF")      ;xxx
      (pascal:file fx     "FILE OF ")
      (pascal:array   yfy    "ARRAY [" "] OF ")
      (pascal:packed  fy     "PACKED "))
 ( 90 (pascal:setf xfx "" " ← "))
 (100 (pascal:range  xfx     "" ".."))
 (200 (pascal:=      xfx     "" " = ")
      (pascal:/=     xfx     "" " <> ")
      (pascal:/=     xfx     "" " ≠ ")
      (pascal:<      xfx     "" " < ")
      (pascal:>      xfx     "" " > ")
      (pascal:<=     xfx     "" " <= ")
      (pascal:>=     xfx     "" " >= ")
      (pascal:<=     xfx     "" " ≤ ")
      (pascal:>=     xfx     "" " ≥ ")
      (pascal:in     xfx     "" " IN "))
 (300 (pascal:+      yfx     "" " + ")
      (pascal:-      yfx     "" " - ")
      (pascal:or     yfx     "" " OR ")
      (pascal:-      fx      "-") 
      (pascal:+      fx      "+") )
 (400 (pascal:*      yfx     "" " * ")
      (pascal:/      yfx     "" " / ")
      (pascal:div    yfx     "" " DIV ")
      (pascal:mod    yfx     "" " MOD ")
      (pascal:and    yfx     "" " AND "))
 (500 (pascal:not    fy      "NOT "))
 (600 (pascal:slot   yfx     "" ".")
      (pascal:aref   yf0     "" "[" "]")
      (pascal:aref   fy      "" "↑")))