; basic.frg

(dup mul) comp in square reg

(comp in reg) comp in def reg

(dup dup mul mul) def cube