:- [ops].

:- ops([fx(type)],1200).

:- ops(
       [ xfx(if) 
       , xfx(then)
	   , xfy(or)
	   , xfy(and)
	   ,  fy(not)
	   , xfy(has)
	   , xfx(of)
	   , xfx(:=)
	   , xfx(in)
	   , xfx(each)
	   , xfx(push)
	   , xfx(pop)
	   , fx(state)
	   , xfx(for)
	   ,  fx(one)
	   ,  fx(set)
	   ,  fy(of)
	   ]).

:- ops(
	   [ xfx(to)
	   ,  fx(by)
	   ,  fx(do)
	   ],699).