f primitive noshow# arguments immediateliteraljmpjzsinatnexp+ - * / showtextgraphicspointlinedroplistvariableconstantsaveloadquitln!@.keyemit: ;!forget"swap$=%allot&dup'clr(repeat(here)until* PointMode+<,<=-if.endif/offset0version1else2update$Ipi$Ipi/25 cos&#6 tan # chs # inv# ^ :sqrt& sqr   log&<# asn>5# acs)#0%array0 [] $not-B>,B>=$B<>1 initializeG-=KU^hr| "-6>FNXcks (3@N^kz 2<GRf