home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / prelude / standard < prev    next >
Encoding:
Text File  |  1988-01-15  |  62.0 KB  |  2,206 lines
  1. temp <- <primitive 110 10 >
  2. <primitive 112 temp 1         " view " \
  3.      #( #[ 32 250 1 156 242 245] \
  4.      #(  ) ) >
  5.  
  6. <primitive 112 temp 2         " variables " \
  7.      #( #[ 32 250 1 158 243 245] \
  8.      #(  ) ) >
  9.  
  10. <primitive 112 temp 3         " superClass " \
  11.      #( #[ 32 250 1 151 243 245] \
  12.      #(  ) ) >
  13.  
  14. <primitive 112 temp 4         " respondsTo: " \
  15.      #( #[ 32 114 34 162 247 18 34 33 250 2 155 247 2 91 243 \
  16.  242 34 10 46 241 114 242 249 22 242 92 243 245] \
  17.      #(  ) ) >
  18.  
  19. <primitive 112 temp 5         " respondsTo " \
  20.      #( #[ 32 250 1 154 242 245] \
  21.      #(  ) ) >
  22.  
  23. <primitive 112 temp 6         " printString " \
  24.      #( #[ 32 250 1 152 243 245] \
  25.      #(  ) ) >
  26.  
  27. <primitive 112 temp 7         " new: " \
  28.      #( #[ 32 250 1 151 114 34 250 1 3 247 4 34 160 241 115 \
  29.  242 32 35 250 2 153 115 32 48 250 2 155 247 5 35 \
  30.  33 176 241 115 242 35 243 245] \
  31.      #( #new:  ) ) >
  32.  
  33. <primitive 112 temp 8         " new " \
  34.      #( #[ 32 250 1 151 113 33 250 1 3 247 4 33 160 241 114 \
  35.  242 32 34 250 2 153 114 32 48 250 2 155 247 4 34 \
  36.  160 241 114 242 34 243 245] \
  37.      #( #new  ) ) >
  38.  
  39. <primitive 112 temp 9         " list " \
  40.      #( #[ 32 250 1 157 242 245] \
  41.      #(  ) ) >
  42.  
  43. <primitive 112 temp 10        " edit " \
  44.      #( #[ 32 250 1 150 242 245] \
  45.      #(  ) ) >
  46.  
  47. <primitive 98 #Class \
  48.      <primitive 97 #Class #Object #\lst\prelude\class.st \
  49.      #(  ) \
  50.      #( #view #variables #superClass #respondsTo: #respondsTo #printString #new: #new #list #edit  ) \
  51.      temp 4 4 > >
  52.  
  53. temp <- <primitive 110 21 >
  54. <primitive 112 temp 1         " shallowCopy " \
  55.      #( #[ 32 250 1 4 113 33 80 199 247 4 32 243 248 26 242 \
  56.  32 164 160 114 81 33 178 225 3 11 34 35 32 35 250 \
  57.  2 111 250 3 112 243 179 242 34 243 242 245] \
  58.      #(  ) ) >
  59.  
  60. <primitive 112 temp 2         " respondsTo: " \
  61.      #( #[ 32 164 33 11 41 243 245] \
  62.      #(  ) ) >
  63.  
  64. <primitive 112 temp 3         " printString " \
  65.      #( #[ 32 10 16 243 245] \
  66.      #(  ) ) >
  67.  
  68. <primitive 112 temp 4         " print " \
  69.      #( #[ 32 169 250 1 121 242 245] \
  70.      #(  ) ) >
  71.  
  72. <primitive 112 temp 5         " notNil " \
  73.      #( #[ 91 243 245] \
  74.      #(  ) ) >
  75.  
  76. <primitive 112 temp 6         " next " \
  77.      #( #[ 93 243 245] \
  78.      #(  ) ) >
  79.  
  80. <primitive 112 temp 7         " isNil " \
  81.      #( #[ 92 243 245] \
  82.      #(  ) ) >
  83.  
  84. <primitive 112 temp 8         " isMemberOf: " \
  85.      #( #[ 33 32 164 181 243 245] \
  86.      #(  ) ) >
  87.  
  88. <primitive 112 temp 9         " isKindOf: " \
  89.      #( #[ 32 164 114 34 162 247 16 34 33 181 247 2 91 243 242 \
  90.  34 10 46 241 114 242 249 20 242 92 243 245] \
  91.      #(  ) ) >
  92.  
  93. <primitive 112 temp 10        " first " \
  94.      #( #[ 32 243 245] \
  95.      #(  ) ) >
  96.  
  97. <primitive 112 temp 11        " error: " \
  98.      #( #[ 33 32 250 2 122 242 245] \
  99.      #(  ) ) >
  100.  
  101. <primitive 112 temp 12        " do: " \
  102.      #( #[ 32 166 114 34 162 247 11 33 34 180 242 32 167 241 114 \
  103.  242 249 15 243 245] \
  104.      #(  ) ) >
  105.  
  106. <primitive 112 temp 13        " deepCopy " \
  107.      #( #[ 32 250 1 4 113 33 80 199 247 4 32 243 248 28 242 \
  108.  32 164 160 114 81 33 178 225 3 13 34 35 32 35 250 \
  109.  2 111 10 20 250 3 112 243 179 242 34 243 242 245] \
  110.      #(  ) ) >
  111.  
  112. <primitive 112 temp 14        " copy " \
  113.      #( #[ 32 10 42 243 245] \
  114.      #(  ) ) >
  115.  
  116. <primitive 112 temp 15        " class " \
  117.      #( #[ 32 250 1 1 243 245] \
  118.      #(  ) ) >
  119.  
  120. <primitive 112 temp 16        " asSymbol " \
  121.      #( #[ 32 10 16 10 17 243 245] \
  122.      #(  ) ) >
  123.  
  124. <primitive 112 temp 17        " asString " \
  125.      #( #[ 32 164 169 243 245] \
  126.      #(  ) ) >
  127.  
  128. <primitive 112 temp 18        " ~= " \
  129.      #( #[ 32 33 201 172 243 245] \
  130.      #(  ) ) >
  131.  
  132. <primitive 112 temp 19        " = " \
  133.      #( #[ 32 33 181 243 245] \
  134.      #(  ) ) >
  135.  
  136. <primitive 112 temp 20        " ~~ " \
  137.      #( #[ 32 33 181 172 243 245] \
  138.      #(  ) ) >
  139.  
  140. <primitive 112 temp 21        " == " \
  141.      #( #[ 32 33 250 2 7 243 245] \
  142.      #(  ) ) >
  143.  
  144. <primitive 98 #Object \
  145.      <primitive 97 #Object #Object #\lst\prelude\object.st \
  146.      #(  ) \
  147.      #( #shallowCopy #respondsTo: #printString #print #notNil #next #isNil #isMemberOf: #isKindOf: #first #error: #do: #deepCopy #copy #class #asSymbol #asString #~= #= #~~ #==  ) \
  148.      temp 4 7 > >
  149.  
  150. temp <- <primitive 110 22 >
  151. <primitive 112 temp 1         " sameAs: " \
  152.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 102 248 4 242 \
  153.  32 10 19 243 245] \
  154.      #(  ) ) >
  155.  
  156. <primitive 112 temp 2         " size " \
  157.      #( #[ 32 250 1 100 243 245] \
  158.      #(  ) ) >
  159.  
  160. <primitive 112 temp 3         " printNoReturn " \
  161.      #( #[ 32 250 1 120 242 245] \
  162.      #(  ) ) >
  163.  
  164. <primitive 112 temp 4         " print " \
  165.      #( #[ 32 250 1 121 242 245] \
  166.      #(  ) ) >
  167.  
  168. <primitive 112 temp 5         " printString " \
  169.      #( #[ 32 250 1 109 243 245] \
  170.      #(  ) ) >
  171.  
  172. <primitive 112 temp 6         " printAt: " \
  173.      #( #[ 32 33 10 49 33 10 50 250 3 126 242 245] \
  174.      #(  ) ) >
  175.  
  176. <primitive 112 temp 7         " new: " \
  177.      #( #[ 33 250 1 115 243 245] \
  178.      #(  ) ) >
  179.  
  180. <primitive 112 temp 8         " deepCopy " \
  181.      #( #[ 32 250 1 107 243 245] \
  182.      #(  ) ) >
  183.  
  184. <primitive 112 temp 9         " copyFrom:length: " \
  185.      #( #[ 32 33 34 250 3 106 243 245] \
  186.      #(  ) ) >
  187.  
  188. <primitive 112 temp 10        " copyFrom:to: " \
  189.      #( #[ 32 33 34 33 193 81 192 250 3 106 243 245] \
  190.      #(  ) ) >
  191.  
  192. <primitive 112 temp 11        " compareError " \
  193.      #( #[ 32 48 188 243 245] \
  194.      #( 'strings can only be compared to strings'  ) ) >
  195.  
  196. <primitive 112 temp 12        " at:put: " \
  197.      #( #[ 32 33 34 250 3 105 242 245] \
  198.      #(  ) ) >
  199.  
  200. <primitive 112 temp 13        " at: " \
  201.      #( #[ 32 33 250 2 104 243 245] \
  202.      #(  ) ) >
  203.  
  204. <primitive 112 temp 14        " asSymbol " \
  205.      #( #[ 32 250 1 108 243 245] \
  206.      #(  ) ) >
  207.  
  208. <primitive 112 temp 15        " asFloat " \
  209.      #( #[ 32 250 1 165 243 245] \
  210.      #(  ) ) >
  211.  
  212. <primitive 112 temp 16        " asInteger " \
  213.      #( #[ 32 250 1 164 243 245] \
  214.      #(  ) ) >
  215.  
  216. <primitive 112 temp 17        " > " \
  217.      #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 204 248 \
  218.  4 242 32 10 19 243 245] \
  219.      #(  ) ) >
  220.  
  221. <primitive 112 temp 18        " >= " \
  222.      #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 203 248 \
  223.  4 242 32 10 19 243 245] \
  224.      #(  ) ) >
  225.  
  226. <primitive 112 temp 19        " <= " \
  227.      #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 200 248 \
  228.  4 242 32 10 19 243 245] \
  229.      #(  ) ) >
  230.  
  231. <primitive 112 temp 20        " < " \
  232.      #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 199 248 \
  233.  4 242 32 10 19 243 245] \
  234.      #(  ) ) >
  235.  
  236. <primitive 112 temp 21        " = " \
  237.      #( #[ 32 33 250 2 6 247 9 32 33 250 2 101 80 201 248 \
  238.  4 242 32 10 19 243 245] \
  239.      #(  ) ) >
  240.  
  241. <primitive 112 temp 22        " , " \
  242.      #( #[ 32 32 33 250 2 6 247 3 33 248 3 242 33 169 250 \
  243.  2 103 243 245] \
  244.      #(  ) ) >
  245.  
  246. <primitive 98 #String \
  247.      <primitive 97 #String #ArrayedCollection #\lst\prelude\string.st \
  248.      #(  ) \
  249.      #( #sameAs: #size #printNoReturn #print #printString #printAt: #new: #deepCopy #copyFrom:length: #copyFrom:to: #compareError #at:put: #at: #asSymbol #asFloat #asInteger #> #>= #<= #< #= #,  ) \
  250.      temp 3 5 > >
  251.  
  252. temp <- <primitive 110 1 >
  253. <primitive 112 temp 1         " nothing " \
  254.      #( #[ 81 242 245] \
  255.      #(  ) ) >
  256.  
  257. <primitive 98 #ArrayedCollection \
  258.      <primitive 97 #ArrayedCollection #Object #\lst\prelude\larray.st \
  259.      #(  ) \
  260.      #( #nothing  ) \
  261.      temp 1 2 > >
  262.  
  263. temp <- <primitive 110 3 >
  264. <primitive 112 temp 1         " printString " \
  265.      #( #[ 48 243 245] \
  266.      #( 'nil'  ) ) >
  267.  
  268. <primitive 112 temp 2         " notNil " \
  269.      #( #[ 92 243 245] \
  270.      #(  ) ) >
  271.  
  272. <primitive 112 temp 3         " isNil " \
  273.      #( #[ 91 243 245] \
  274.      #(  ) ) >
  275.  
  276. <primitive 98 #UndefinedObject \
  277.      <primitive 97 #UndefinedObject #Object #\lst\prelude\nil.st \
  278.      #(  ) \
  279.      #( #printString #notNil #isNil  ) \
  280.      temp 1 2 > >
  281.  
  282. temp <- <primitive 110 6 >
  283. <primitive 112 temp 1         " size " \
  284.      #( #[ 32 250 1 4 243 245] \
  285.      #(  ) ) >
  286.  
  287. <primitive 112 temp 2         " printString " \
  288.      #( #[ 48 113 32 250 1 4 114 34 80 204 247 21 32 34 250 \
  289.  2 111 169 49 11 17 33 11 17 113 34 81 193 241 114 \
  290.  242 249 26 242 50 33 11 17 243 245] \
  291.      #( ')' ' ' '#( '  ) ) >
  292.  
  293. <primitive 112 temp 3         " grow: " \
  294.      #( #[ 32 33 250 2 113 243 245] \
  295.      #(  ) ) >
  296.  
  297. <primitive 112 temp 4         " at:put: " \
  298.      #( #[ 33 81 199 251 6 33 32 250 1 4 204 247 6 32 48 \
  299.  188 242 93 243 242 32 33 34 250 3 112 242 34 243 245 \
  300. ] \
  301.      #( 'index error'  ) ) >
  302.  
  303. <primitive 112 temp 5         " at: " \
  304.      #( #[ 33 81 199 251 6 33 32 250 1 4 204 247 6 32 48 \
  305.  188 242 93 243 242 32 33 250 2 111 243 245] \
  306.      #( 'index error'  ) ) >
  307.  
  308. <primitive 112 temp 6         " new: " \
  309.      #( #[ 33 250 1 114 243 245] \
  310.      #(  ) ) >
  311.  
  312. <primitive 98 #Array \
  313.      <primitive 97 #Array #ArrayedCollection #\lst\prelude\array.st \
  314.      #(  ) \
  315.      #( #size #printString #grow: #at:put: #at: #new:  ) \
  316.      temp 3 4 > >
  317.  
  318. temp <- <primitive 110 6 >
  319. <primitive 112 temp 1         " xor: " \
  320.      #( #[ 32 33 182 243 245] \
  321.      #(  ) ) >
  322.  
  323. <primitive 112 temp 2         " eqv: " \
  324.      #( #[ 32 33 181 243 245] \
  325.      #(  ) ) >
  326.  
  327. <primitive 112 temp 3         " or: " \
  328.      #( #[ 32 251 2 33 165 243 245] \
  329.      #(  ) ) >
  330.  
  331. <primitive 112 temp 4         " and: " \
  332.      #( #[ 32 252 2 33 165 243 245] \
  333.      #(  ) ) >
  334.  
  335. <primitive 112 temp 5         " | " \
  336.      #( #[ 32 251 1 33 243 245] \
  337.      #(  ) ) >
  338.  
  339. <primitive 112 temp 6         " & " \
  340.      #( #[ 32 252 1 33 243 245] \
  341.      #(  ) ) >
  342.  
  343. <primitive 98 #Boolean \
  344.      <primitive 97 #Boolean #Object #\lst\prelude\boolean.st \
  345.      #(  ) \
  346.      #( #xor: #eqv: #or: #and: #| #&  ) \
  347.      temp 2 3 > >
  348.  
  349. temp <- <primitive 110 5 >
  350. <primitive 112 temp 1         " not " \
  351.      #( #[ 92 243 245] \
  352.      #(  ) ) >
  353.  
  354. <primitive 112 temp 2         " ifFalse: " \
  355.      #( #[ 93 243 245] \
  356.      #(  ) ) >
  357.  
  358. <primitive 112 temp 3         " ifTrue: " \
  359.      #( #[ 33 165 243 245] \
  360.      #(  ) ) >
  361.  
  362. <primitive 112 temp 4         " ifFalse:ifTrue: " \
  363.      #( #[ 34 165 243 245] \
  364.      #(  ) ) >
  365.  
  366. <primitive 112 temp 5         " ifTrue:ifFalse: " \
  367.      #( #[ 33 165 243 245] \
  368.      #(  ) ) >
  369.  
  370. <primitive 98 #True \
  371.      <primitive 97 #True #Boolean #\lst\prelude\true.st \
  372.      #(  ) \
  373.      #( #not #ifFalse: #ifTrue: #ifFalse:ifTrue: #ifTrue:ifFalse:  ) \
  374.      temp 3 2 > >
  375.  
  376. temp <- <primitive 110 5 >
  377. <primitive 112 temp 1         " not " \
  378.      #( #[ 91 243 245] \
  379.      #(  ) ) >
  380.  
  381. <primitive 112 temp 2         " ifFalse: " \
  382.      #( #[ 33 165 243 245] \
  383.      #(  ) ) >
  384.  
  385. <primitive 112 temp 3         " ifTrue: " \
  386.      #( #[ 93 243 245] \
  387.      #(  ) ) >
  388.  
  389. <primitive 112 temp 4         " ifFalse:ifTrue: " \
  390.      #( #[ 33 165 243 245] \
  391.      #(  ) ) >
  392.  
  393. <primitive 112 temp 5         " ifTrue:ifFalse: " \
  394.      #( #[ 34 165 243 245] \
  395.      #(  ) ) >
  396.  
  397. <primitive 98 #False \
  398.      <primitive 97 #False #Boolean #\lst\prelude\false.st \
  399.      #(  ) \
  400.      #( #not #ifFalse: #ifTrue: #ifFalse:ifTrue: #ifTrue:ifFalse:  ) \
  401.      temp 3 2 > >
  402.  
  403. temp <- <primitive 110 14 >
  404. <primitive 112 temp 1         " value:value:value:value:value: " \
  405.      #( #[ 85 250 1 140 242 245] \
  406.      #(  ) ) >
  407.  
  408. <primitive 112 temp 2         " value:value:value:value: " \
  409.      #( #[ 84 250 1 140 242 245] \
  410.      #(  ) ) >
  411.  
  412. <primitive 112 temp 3         " value:value:value: " \
  413.      #( #[ 83 250 1 140 242 245] \
  414.      #(  ) ) >
  415.  
  416. <primitive 112 temp 4         " value:value: " \
  417.      #( #[ 82 250 1 140 242 245] \
  418.      #(  ) ) >
  419.  
  420. <primitive 112 temp 5         " value: " \
  421.      #( #[ 81 250 1 140 242 245] \
  422.      #(  ) ) >
  423.  
  424. <primitive 112 temp 6         " value " \
  425.      #( #[ 80 250 1 140 242 245] \
  426.      #(  ) ) >
  427.  
  428. <primitive 112 temp 7         " whileFalse: " \
  429.      #( #[ 32 165 246 5 33 165 242 249 9 243 245] \
  430.      #(  ) ) >
  431.  
  432. <primitive 112 temp 8         " whileFalse " \
  433.      #( #[ 32 165 246 4 93 242 249 8 243 245] \
  434.      #(  ) ) >
  435.  
  436. <primitive 112 temp 9         " whileTrue: " \
  437.      #( #[ 32 165 247 5 33 165 242 249 9 243 245] \
  438.      #(  ) ) >
  439.  
  440. <primitive 112 temp 10        " whileTrue " \
  441.      #( #[ 32 165 247 4 93 242 249 8 243 245] \
  442.      #(  ) ) >
  443.  
  444. <primitive 112 temp 11        " forkWith: " \
  445.      #( #[ 32 33 11 35 10 40 242 93 243 245] \
  446.      #(  ) ) >
  447.  
  448. <primitive 112 temp 12        " fork " \
  449.      #( #[ 32 10 33 10 40 242 93 243 245] \
  450.      #(  ) ) >
  451.  
  452. <primitive 112 temp 13        " newProcessWith: " \
  453.      #( #[ 32 33 250 2 141 243 245] \
  454.      #(  ) ) >
  455.  
  456. <primitive 112 temp 14        " newProcess " \
  457.      #( #[ 32 250 1 141 243 245] \
  458.      #(  ) ) >
  459.  
  460. <primitive 98 #Block \
  461.      <primitive 97 #Block #Object #\lst\prelude\block.st \
  462.      #(  ) \
  463.      #( #value:value:value:value:value: #value:value:value:value: #value:value:value: #value:value: #value: #value #whileFalse: #whileFalse #whileTrue: #whileTrue #forkWith: #fork #newProcessWith: #newProcess  ) \
  464.      temp 6 3 > >
  465.  
  466. temp <- <primitive 110 3 >
  467. <primitive 112 temp 1         " asString " \
  468.      #( #[ 32 250 1 93 243 245] \
  469.      #(  ) ) >
  470.  
  471. <primitive 112 temp 2         " printString " \
  472.      #( #[ 32 250 1 92 243 245] \
  473.      #(  ) ) >
  474.  
  475. <primitive 112 temp 3         " == " \
  476.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 91 248 2 242 \
  477.  92 243 245] \
  478.      #(  ) ) >
  479.  
  480. <primitive 98 #Symbol \
  481.      <primitive 97 #Symbol #Object #\lst\prelude\symbol.st \
  482.      #(  ) \
  483.      #( #asString #printString #==  ) \
  484.      temp 2 4 > >
  485.  
  486. temp <- <primitive 110 9 >
  487. <primitive 112 temp 1         " max: " \
  488.      #( #[ 32 33 204 247 3 32 248 2 242 33 243 245] \
  489.      #(  ) ) >
  490.  
  491. <primitive 112 temp 2         " min: " \
  492.      #( #[ 32 33 199 247 3 32 248 2 242 33 243 245] \
  493.      #(  ) ) >
  494.  
  495. <primitive 112 temp 3         " between:and: " \
  496.      #( #[ 32 33 203 252 3 32 34 200 243 245] \
  497.      #(  ) ) >
  498.  
  499. <primitive 112 temp 4         " > " \
  500.      #( #[ 33 32 199 243 245] \
  501.      #(  ) ) >
  502.  
  503. <primitive 112 temp 5         " >= " \
  504.      #( #[ 32 33 204 251 3 32 33 201 243 245] \
  505.      #(  ) ) >
  506.  
  507. <primitive 112 temp 6         " ~= " \
  508.      #( #[ 32 33 201 172 243 245] \
  509.      #(  ) ) >
  510.  
  511. <primitive 112 temp 7         " = " \
  512.      #( #[ 32 33 204 251 3 32 33 199 172 243 245] \
  513.      #(  ) ) >
  514.  
  515. <primitive 112 temp 8         " < " \
  516.      #( #[ 33 32 204 243 245] \
  517.      #(  ) ) >
  518.  
  519. <primitive 112 temp 9         " <= " \
  520.      #( #[ 32 33 199 251 3 32 33 201 243 245] \
  521.      #(  ) ) >
  522.  
  523. <primitive 98 #Magnitude \
  524.      <primitive 97 #Magnitude #Object #\lst\prelude\magnitud.st \
  525.      #(  ) \
  526.      #( #max: #min: #between:and: #> #>= #~= #= #< #<=  ) \
  527.      temp 3 4 > >
  528.  
  529. temp <- <primitive 110 30 >
  530. <primitive 112 temp 1         " truncateTo: " \
  531.      #( #[ 32 33 190 10 47 33 194 243 245] \
  532.      #(  ) ) >
  533.  
  534. <primitive 112 temp 2         " to:by: " \
  535.      #( #[ 5 46 160 241 32 33 34 131 0 242 243 245] \
  536.      #( #from:to:by:  ) ) >
  537.  
  538. <primitive 112 temp 3         " to: " \
  539.      #( #[ 5 46 160 241 32 33 81 131 0 242 243 245] \
  540.      #( #from:to:by:  ) ) >
  541.  
  542. <primitive 112 temp 4         " strictlyPositive " \
  543.      #( #[ 32 80 204 243 245] \
  544.      #(  ) ) >
  545.  
  546. <primitive 112 temp 5         " squared " \
  547.      #( #[ 32 32 194 243 245] \
  548.      #(  ) ) >
  549.  
  550. <primitive 112 temp 6         " sqrt " \
  551.      #( #[ 32 175 10 43 243 245] \
  552.      #(  ) ) >
  553.  
  554. <primitive 112 temp 7         " sign " \
  555.      #( #[ 32 80 199 247 3 90 248 11 242 32 80 204 247 3 81 \
  556.  248 2 242 80 243 245] \
  557.      #(  ) ) >
  558.  
  559. <primitive 112 temp 8         " roundTo: " \
  560.      #( #[ 32 33 190 10 41 33 194 243 245] \
  561.      #(  ) ) >
  562.  
  563. <primitive 112 temp 9         " reciprocal " \
  564.      #( #[ 48 32 190 243 245] \
  565.      #( 1.00  ) ) >
  566.  
  567. <primitive 112 temp 10        " raisedTo: " \
  568.      #( #[ 32 175 33 175 11 16 243 245] \
  569.      #(  ) ) >
  570.  
  571. <primitive 112 temp 11        " radians " \
  572.      #( #[ 5 54 32 175 176 243 245] \
  573.      #(  ) ) >
  574.  
  575. <primitive 112 temp 12        " positive " \
  576.      #( #[ 32 80 203 243 245] \
  577.      #(  ) ) >
  578.  
  579. <primitive 112 temp 13        " pi " \
  580.      #( #[ 32 48 194 243 245] \
  581.      #( 3.1415926  ) ) >
  582.  
  583. <primitive 112 temp 14        " negative " \
  584.      #( #[ 32 80 199 243 245] \
  585.      #(  ) ) >
  586.  
  587. <primitive 112 temp 15        " negated " \
  588.      #( #[ 80 32 193 243 245] \
  589.      #(  ) ) >
  590.  
  591. <primitive 112 temp 16        " log: " \
  592.      #( #[ 32 10 32 33 10 32 190 243 245] \
  593.      #(  ) ) >
  594.  
  595. <primitive 112 temp 17        " ln " \
  596.      #( #[ 32 175 10 32 243 245] \
  597.      #(  ) ) >
  598.  
  599. <primitive 112 temp 18        " gamma " \
  600.      #( #[ 32 175 10 26 243 245] \
  601.      #(  ) ) >
  602.  
  603. <primitive 112 temp 19        " exp " \
  604.      #( #[ 32 175 10 23 243 245] \
  605.      #(  ) ) >
  606.  
  607. <primitive 112 temp 20        " abs " \
  608.      #( #[ 32 80 199 247 5 80 32 193 248 2 242 32 243 245] \
  609.      #(  ) ) >
  610.  
  611. <primitive 112 temp 21        " @ " \
  612.      #( #[ 5 53 160 32 11 50 33 11 51 243 245] \
  613.      #(  ) ) >
  614.  
  615. <primitive 112 temp 22        " ^ " \
  616.      #( #[ 32 175 33 175 11 16 243 245] \
  617.      #(  ) ) >
  618.  
  619. <primitive 112 temp 23        " / " \
  620.      #( #[ 32 33 11 34 33 32 11 34 190 243 245] \
  621.      #(  ) ) >
  622.  
  623. <primitive 112 temp 24        " * " \
  624.      #( #[ 32 33 11 34 33 32 11 34 194 243 245] \
  625.      #(  ) ) >
  626.  
  627. <primitive 112 temp 25        " - " \
  628.      #( #[ 32 33 11 34 33 32 11 34 193 243 245] \
  629.      #(  ) ) >
  630.  
  631. <primitive 112 temp 26        " + " \
  632.      #( #[ 32 33 11 34 33 32 11 34 192 243 245] \
  633.      #(  ) ) >
  634.  
  635. <primitive 112 temp 27        " > " \
  636.      #( #[ 32 33 11 34 33 32 11 34 204 243 245] \
  637.      #(  ) ) >
  638.  
  639. <primitive 112 temp 28        " < " \
  640.      #( #[ 32 33 11 34 33 32 11 34 199 243 245] \
  641.      #(  ) ) >
  642.  
  643. <primitive 112 temp 29        " = " \
  644.      #( #[ 32 33 11 34 33 32 11 34 201 243 245] \
  645.      #(  ) ) >
  646.  
  647. <primitive 112 temp 30        " maxtype: " \
  648.      #( #[ 32 33 250 2 9 247 3 32 248 4 242 33 32 191 243 \
  649.  245] \
  650.      #(  ) ) >
  651.  
  652. <primitive 98 #Number \
  653.      <primitive 97 #Number #Magnitude #\lst\prelude\number.st \
  654.      #(  ) \
  655.      #( #truncateTo: #to:by: #to: #strictlyPositive #squared #sqrt #sign #roundTo: #reciprocal #raisedTo: #radians #positive #pi #negative #negated #log: #ln #gamma #exp #abs #@ #^ #/ #* #- #+ #> #< #= #maxtype:  ) \
  656.      temp 3 6 > >
  657.  
  658. temp <- <primitive 110 32 >
  659. <primitive 112 temp 1         " timesRepeat: " \
  660.      #( #[ 80 114 34 32 199 247 11 33 165 242 34 81 192 241 114 \
  661.  242 249 16 242 245] \
  662.      #(  ) ) >
  663.  
  664. <primitive 112 temp 2         " rem: " \
  665.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 29 248 4 242 \
  666.  32 10 35 243 245] \
  667.      #(  ) ) >
  668.  
  669. <primitive 112 temp 3         " radix: " \
  670.      #( #[ 32 33 250 2 26 243 245] \
  671.      #(  ) ) >
  672.  
  673. <primitive 112 temp 4         " quo: " \
  674.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 28 248 4 242 \
  675.  32 10 35 243 245] \
  676.      #(  ) ) >
  677.  
  678. <primitive 112 temp 5         " odd " \
  679.      #( #[ 32 82 205 80 202 243 245] \
  680.      #(  ) ) >
  681.  
  682. <primitive 112 temp 6         " noMask: " \
  683.      #( #[ 80 32 33 197 201 243 245] \
  684.      #(  ) ) >
  685.  
  686. <primitive 112 temp 7         " lcm: " \
  687.      #( #[ 32 33 250 2 6 247 10 32 33 194 32 33 11 27 206 \
  688.  248 4 242 32 10 35 243 245] \
  689.      #(  ) ) >
  690.  
  691. <primitive 112 temp 8         " highBit " \
  692.      #( #[ 32 250 1 34 243 245] \
  693.      #(  ) ) >
  694.  
  695. <primitive 112 temp 9         " gcd: " \
  696.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 20 248 4 242 \
  697.  32 10 35 243 245] \
  698.      #(  ) ) >
  699.  
  700. <primitive 112 temp 10        " factorial " \
  701.      #( #[ 32 250 1 38 243 245] \
  702.      #(  ) ) >
  703.  
  704. <primitive 112 temp 11        " even " \
  705.      #( #[ 32 82 205 80 201 243 245] \
  706.      #(  ) ) >
  707.  
  708. <primitive 112 temp 12        " bitXor: " \
  709.      #( #[ 32 33 250 2 24 243 245] \
  710.      #(  ) ) >
  711.  
  712. <primitive 112 temp 13        " bitShift: " \
  713.      #( #[ 32 33 250 2 25 243 245] \
  714.      #(  ) ) >
  715.  
  716. <primitive 112 temp 14        " bitOr: " \
  717.      #( #[ 32 33 250 2 22 243 245] \
  718.      #(  ) ) >
  719.  
  720. <primitive 112 temp 15        " bitInvert " \
  721.      #( #[ 32 250 1 33 243 245] \
  722.      #(  ) ) >
  723.  
  724. <primitive 112 temp 16        " bitAt: " \
  725.      #( #[ 32 33 250 2 21 243 245] \
  726.      #(  ) ) >
  727.  
  728. <primitive 112 temp 17        " bitAnd: " \
  729.      #( #[ 32 33 250 2 23 243 245] \
  730.      #(  ) ) >
  731.  
  732. <primitive 112 temp 18        " asString " \
  733.      #( #[ 32 250 1 37 243 245] \
  734.      #(  ) ) >
  735.  
  736. <primitive 112 temp 19        " asInteger " \
  737.      #( #[ 32 243 245] \
  738.      #(  ) ) >
  739.  
  740. <primitive 112 temp 20        " asFloat " \
  741.      #( #[ 32 250 1 39 243 245] \
  742.      #(  ) ) >
  743.  
  744. <primitive 112 temp 21        " asCharacter " \
  745.      #( #[ 32 250 1 36 243 245] \
  746.      #(  ) ) >
  747.  
  748. <primitive 112 temp 22        " anyMask: " \
  749.      #( #[ 80 32 33 250 2 23 202 243 245] \
  750.      #(  ) ) >
  751.  
  752. <primitive 112 temp 23        " allMask: " \
  753.      #( #[ 33 32 33 250 2 23 201 243 245] \
  754.      #(  ) ) >
  755.  
  756. <primitive 112 temp 24        " \\ " \
  757.      #( #[ 32 33 250 2 6 247 18 32 32 80 199 247 3 90 248 \
  758.  2 242 81 194 114 34 33 205 248 4 242 32 10 35 243 \
  759.  245] \
  760.      #(  ) ) >
  761.  
  762. <primitive 112 temp 25        " // " \
  763.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 19 248 4 242 \
  764.  32 10 35 243 245] \
  765.      #(  ) ) >
  766.  
  767. <primitive 112 temp 26        " / " \
  768.      #( #[ 32 175 33 190 243 245] \
  769.      #(  ) ) >
  770.  
  771. <primitive 112 temp 27        " * " \
  772.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 18 248 5 242 \
  773.  32 33 145 0 243 245] \
  774.      #( #*  ) ) >
  775.  
  776. <primitive 112 temp 28        " - " \
  777.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 11 248 5 242 \
  778.  32 33 145 0 243 245] \
  779.      #( #-  ) ) >
  780.  
  781. <primitive 112 temp 29        " + " \
  782.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 10 248 5 242 \
  783.  32 33 145 0 243 245] \
  784.      #( #+  ) ) >
  785.  
  786. <primitive 112 temp 30        " < " \
  787.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 12 248 5 242 \
  788.  32 33 145 0 243 245] \
  789.      #( #<  ) ) >
  790.  
  791. <primitive 112 temp 31        " > " \
  792.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 13 248 5 242 \
  793.  32 33 145 0 243 245] \
  794.      #( #>  ) ) >
  795.  
  796. <primitive 112 temp 32        " = " \
  797.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 16 248 5 242 \
  798.  32 33 145 0 243 245] \
  799.      #( #=  ) ) >
  800.  
  801. <primitive 98 #Integer \
  802.      <primitive 97 #Integer #Number #\lst\prelude\integer.st \
  803.      #(  ) \
  804.      #( #timesRepeat: #rem: #radix: #quo: #odd #noMask: #lcm: #highBit #gcd: #factorial #even #bitXor: #bitShift: #bitOr: #bitInvert #bitAt: #bitAnd: #asString #asInteger #asFloat #asCharacter #anyMask: #allMask: #\\ #// #/ #* #- #+ #< #> #=  ) \
  805.      temp 3 5 > >
  806.  
  807. temp <- <primitive 110 18 >
  808. <primitive 112 temp 1         " printString " \
  809.      #( #[ 48 32 250 1 58 11 17 243 245] \
  810.      #( '$'  ) ) >
  811.  
  812. <primitive 112 temp 2         " isVowel " \
  813.      #( #[ 32 250 1 51 243 245] \
  814.      #(  ) ) >
  815.  
  816. <primitive 112 temp 3         " isUppercase " \
  817.      #( #[ 32 48 49 218 243 245] \
  818.      #( $A $Z  ) ) >
  819.  
  820. <primitive 112 temp 4         " isSeparator " \
  821.      #( #[ 32 250 1 55 243 245] \
  822.      #(  ) ) >
  823.  
  824. <primitive 112 temp 5         " isLowercase " \
  825.      #( #[ 32 48 49 218 243 245] \
  826.      #( $a $z  ) ) >
  827.  
  828. <primitive 112 temp 6         " isLetter " \
  829.      #( #[ 32 10 28 251 3 32 10 29 243 245] \
  830.      #(  ) ) >
  831.  
  832. <primitive 112 temp 7         " isDigit " \
  833.      #( #[ 32 48 49 218 243 245] \
  834.      #( $0 $9  ) ) >
  835.  
  836. <primitive 112 temp 8         " isAlphaNumeric " \
  837.      #( #[ 32 250 1 56 243 245] \
  838.      #(  ) ) >
  839.  
  840. <primitive 112 temp 9         " digitValue " \
  841.      #( #[ 32 250 1 50 241 113 161 247 3 32 48 188 242 33 243 \
  842.  245] \
  843.      #( 'digitValue on nondigit char'  ) ) >
  844.  
  845. <primitive 112 temp 10        " compareError " \
  846.      #( #[ 32 48 188 243 245] \
  847.      #( 'char cannot be compared to non char'  ) ) >
  848.  
  849. <primitive 112 temp 11        " asString " \
  850.      #( #[ 32 250 1 58 243 245] \
  851.      #(  ) ) >
  852.  
  853. <primitive 112 temp 12        " asUppercase " \
  854.      #( #[ 32 250 1 53 247 6 32 250 1 57 248 2 242 32 243 \
  855.  245] \
  856.      #(  ) ) >
  857.  
  858. <primitive 112 temp 13        " asLowercase " \
  859.      #( #[ 32 250 1 54 247 6 32 250 1 57 248 2 242 32 243 \
  860.  245] \
  861.      #(  ) ) >
  862.  
  863. <primitive 112 temp 14        " asciiValue " \
  864.      #( #[ 32 250 1 59 243 245] \
  865.      #(  ) ) >
  866.  
  867. <primitive 112 temp 15        " > " \
  868.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 43 248 4 242 \
  869.  32 10 19 243 245] \
  870.      #(  ) ) >
  871.  
  872. <primitive 112 temp 16        " = " \
  873.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 46 248 4 242 \
  874.  32 10 19 243 245] \
  875.      #(  ) ) >
  876.  
  877. <primitive 112 temp 17        " < " \
  878.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 42 248 4 242 \
  879.  32 10 19 243 245] \
  880.      #(  ) ) >
  881.  
  882. <primitive 112 temp 18        " == " \
  883.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 46 248 2 242 \
  884.  92 243 245] \
  885.      #(  ) ) >
  886.  
  887. <primitive 98 #Char \
  888.      <primitive 97 #Char #Magnitude #\lst\prelude\char.st \
  889.      #(  ) \
  890.      #( #printString #isVowel #isUppercase #isSeparator #isLowercase #isLetter #isDigit #isAlphaNumeric #digitValue #compareError #asString #asUppercase #asLowercase #asciiValue #> #= #< #==  ) \
  891.      temp 2 4 > >
  892.  
  893. temp <- <primitive 110 25 >
  894. <primitive 112 temp 1         " truncated " \
  895.      #( #[ 32 48 199 247 6 32 250 1 73 248 5 242 32 250 1 \
  896.  72 243 245] \
  897.      #( 0.0  ) ) >
  898.  
  899. <primitive 112 temp 2         " sqrt " \
  900.      #( #[ 32 250 1 71 243 245] \
  901.      #(  ) ) >
  902.  
  903. <primitive 112 temp 3         " rounded " \
  904.      #( #[ 32 48 192 250 1 72 243 245] \
  905.      #( 0.5  ) ) >
  906.  
  907. <primitive 112 temp 4         " radix: " \
  908.      #( #[ 32 33 250 2 89 243 245] \
  909.      #(  ) ) >
  910.  
  911. <primitive 112 temp 5         " ln " \
  912.      #( #[ 32 250 1 70 243 245] \
  913.      #(  ) ) >
  914.  
  915. <primitive 112 temp 6         " integerPart " \
  916.      #( #[ 32 250 1 75 243 245] \
  917.      #(  ) ) >
  918.  
  919. <primitive 112 temp 7         " gamma " \
  920.      #( #[ 32 250 1 77 243 245] \
  921.      #(  ) ) >
  922.  
  923. <primitive 112 temp 8         " fractionPart " \
  924.      #( #[ 32 250 1 76 243 245] \
  925.      #(  ) ) >
  926.  
  927. <primitive 112 temp 9         " floor " \
  928.      #( #[ 32 250 1 72 243 245] \
  929.      #(  ) ) >
  930.  
  931. <primitive 112 temp 10        " exp " \
  932.      #( #[ 32 250 1 79 243 245] \
  933.      #(  ) ) >
  934.  
  935. <primitive 112 temp 11        " coerce: " \
  936.      #( #[ 33 175 243 245] \
  937.      #(  ) ) >
  938.  
  939. <primitive 112 temp 12        " ceiling " \
  940.      #( #[ 32 250 1 73 243 245] \
  941.      #(  ) ) >
  942.  
  943. <primitive 112 temp 13        " asString " \
  944.      #( #[ 32 250 1 78 243 245] \
  945.      #(  ) ) >
  946.  
  947. <primitive 112 temp 14        " asFloat " \
  948.      #( #[ 32 243 245] \
  949.      #(  ) ) >
  950.  
  951. <primitive 112 temp 15        " arcTan " \
  952.      #( #[ 5 54 32 250 1 86 176 243 245] \
  953.      #(  ) ) >
  954.  
  955. <primitive 112 temp 16        " arcSin " \
  956.      #( #[ 5 54 32 250 1 84 176 243 245] \
  957.      #(  ) ) >
  958.  
  959. <primitive 112 temp 17        " arcCos " \
  960.      #( #[ 5 54 32 250 1 85 176 243 245] \
  961.      #(  ) ) >
  962.  
  963. <primitive 112 temp 18        " ^ " \
  964.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 88 248 5 242 \
  965.  32 33 145 0 243 245] \
  966.      #( #raisedTo:  ) ) >
  967.  
  968. <primitive 112 temp 19        " / " \
  969.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 69 248 5 242 \
  970.  32 33 145 0 243 245] \
  971.      #( #/  ) ) >
  972.  
  973. <primitive 112 temp 20        " * " \
  974.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 68 248 5 242 \
  975.  32 33 145 0 243 245] \
  976.      #( #*  ) ) >
  977.  
  978. <primitive 112 temp 21        " - " \
  979.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 61 248 5 242 \
  980.  32 33 145 0 243 245] \
  981.      #( #-  ) ) >
  982.  
  983. <primitive 112 temp 22        " + " \
  984.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 60 248 5 242 \
  985.  32 33 145 0 243 245] \
  986.      #( #+  ) ) >
  987.  
  988. <primitive 112 temp 23        " > " \
  989.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 63 248 5 242 \
  990.  32 33 145 0 243 245] \
  991.      #( #>  ) ) >
  992.  
  993. <primitive 112 temp 24        " < " \
  994.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 62 248 5 242 \
  995.  32 33 145 0 243 245] \
  996.      #( #<  ) ) >
  997.  
  998. <primitive 112 temp 25        " = " \
  999.      #( #[ 32 33 250 2 6 247 7 32 33 250 2 66 248 5 242 \
  1000.  32 33 145 0 243 245] \
  1001.      #( #=  ) ) >
  1002.  
  1003. <primitive 98 #Float \
  1004.      <primitive 97 #Float #Number #\lst\prelude\float.st \
  1005.      #(  ) \
  1006.      #( #truncated #sqrt #rounded #radix: #ln #integerPart #gamma #fractionPart #floor #exp #coerce: #ceiling #asString #asFloat #arcTan #arcSin #arcCos #^ #/ #* #- #+ #> #< #=  ) \
  1007.      temp 2 4 > >
  1008.  
  1009. temp <- <primitive 110 8 >
  1010. <primitive 112 temp 1         " printString " \
  1011.      #( #[ 16 10 16 48 11 17 243 245] \
  1012.      #( ' radians'  ) ) >
  1013.  
  1014. <primitive 112 temp 2         " asFloat " \
  1015.      #( #[ 16 243 245] \
  1016.      #(  ) ) >
  1017.  
  1018. <primitive 112 temp 3         " tan " \
  1019.      #( #[ 16 250 1 81 16 250 1 82 190 243 245] \
  1020.      #(  ) ) >
  1021.  
  1022. <primitive 112 temp 4         " cos " \
  1023.      #( #[ 16 250 1 82 243 245] \
  1024.      #(  ) ) >
  1025.  
  1026. <primitive 112 temp 5         " sin " \
  1027.      #( #[ 16 250 1 81 243 245] \
  1028.      #(  ) ) >
  1029.  
  1030. <primitive 112 temp 6         " = " \
  1031.      #( #[ 16 33 175 201 243 245] \
  1032.      #(  ) ) >
  1033.  
  1034. <primitive 112 temp 7         " < " \
  1035.      #( #[ 16 33 175 199 243 245] \
  1036.      #(  ) ) >
  1037.  
  1038. <primitive 112 temp 8         " new: " \
  1039.      #( #[ 33 175 250 1 80 96 245] \
  1040.      #(  ) ) >
  1041.  
  1042. <primitive 98 #Radian \
  1043.      <primitive 97 #Radian #Magnitude #\lst\prelude\radian.st \
  1044.      #(  #value ) \
  1045.      #( #printString #asFloat #tan #cos #sin #= #< #new:  ) \
  1046.      temp 2 3 > >
  1047.  
  1048. temp <- <primitive 110 21 >
  1049. <primitive 112 temp 1         " y: " \
  1050.      #( #[ 33 97 245] \
  1051.      #(  ) ) >
  1052.  
  1053. <primitive 112 temp 2         " y " \
  1054.      #( #[ 17 243 245] \
  1055.      #(  ) ) >
  1056.  
  1057. <primitive 112 temp 3         " x:y: " \
  1058.      #( #[ 33 96 34 97 245] \
  1059.      #(  ) ) >
  1060.  
  1061. <primitive 112 temp 4         " x: " \
  1062.      #( #[ 33 96 245] \
  1063.      #(  ) ) >
  1064.  
  1065. <primitive 112 temp 5         " x " \
  1066.      #( #[ 16 243 245] \
  1067.      #(  ) ) >
  1068.  
  1069. <primitive 112 temp 6         " transpose " \
  1070.      #( #[ 5 53 160 17 11 50 16 11 51 243 245] \
  1071.      #(  ) ) >
  1072.  
  1073. <primitive 112 temp 7         " printString " \
  1074.      #( #[ 16 169 48 11 17 17 169 11 17 243 245] \
  1075.      #( ' @ '  ) ) >
  1076.  
  1077. <primitive 112 temp 8         " min: " \
  1078.      #( #[ 5 53 160 16 33 10 49 207 11 50 17 33 10 50 207 \
  1079.  11 51 243 245] \
  1080.      #(  ) ) >
  1081.  
  1082. <primitive 112 temp 9         " max: " \
  1083.      #( #[ 5 53 160 16 33 10 49 12 16 11 50 17 33 10 50 \
  1084.  12 16 11 51 243 245] \
  1085.      #(  ) ) >
  1086.  
  1087. <primitive 112 temp 10        " dist: " \
  1088.      #( #[ 16 33 10 49 193 10 44 17 33 10 50 193 10 44 192 \
  1089.  10 43 243 245] \
  1090.      #(  ) ) >
  1091.  
  1092. <primitive 112 temp 11        " asString " \
  1093.      #( #[ 16 10 16 48 11 17 17 10 16 11 17 243 245] \
  1094.      #( ' @ '  ) ) >
  1095.  
  1096. <primitive 112 temp 12        " abs " \
  1097.      #( #[ 5 53 160 16 173 11 50 17 173 11 51 243 245] \
  1098.      #(  ) ) >
  1099.  
  1100. <primitive 112 temp 13        " // " \
  1101.      #( #[ 5 53 160 16 33 11 18 11 50 17 33 11 18 11 51 \
  1102.  243 245] \
  1103.      #(  ) ) >
  1104.  
  1105. <primitive 112 temp 14        " / " \
  1106.      #( #[ 5 53 160 16 33 190 11 50 17 33 190 11 51 243 245 \
  1107. ] \
  1108.      #(  ) ) >
  1109.  
  1110. <primitive 112 temp 15        " - " \
  1111.      #( #[ 5 53 160 16 33 10 49 193 11 50 17 33 10 50 193 \
  1112.  11 51 243 245] \
  1113.      #(  ) ) >
  1114.  
  1115. <primitive 112 temp 16        " + " \
  1116.      #( #[ 5 53 160 16 33 10 49 192 11 50 17 33 10 50 192 \
  1117.  11 51 243 245] \
  1118.      #(  ) ) >
  1119.  
  1120. <primitive 112 temp 17        " * " \
  1121.      #( #[ 5 53 160 16 33 194 11 50 17 33 194 11 51 243 245 \
  1122. ] \
  1123.      #(  ) ) >
  1124.  
  1125. <primitive 112 temp 18        " = " \
  1126.      #( #[ 16 33 10 49 201 252 5 17 33 10 50 201 243 245] \
  1127.      #(  ) ) >
  1128.  
  1129. <primitive 112 temp 19        " >= " \
  1130.      #( #[ 16 33 10 49 203 252 5 17 33 10 50 203 243 245] \
  1131.      #(  ) ) >
  1132.  
  1133. <primitive 112 temp 20        " <= " \
  1134.      #( #[ 16 33 10 49 200 252 5 17 33 10 50 199 243 245] \
  1135.      #(  ) ) >
  1136.  
  1137. <primitive 112 temp 21        " < " \
  1138.      #( #[ 16 33 10 49 199 252 5 17 33 10 50 199 243 245] \
  1139.      #(  ) ) >
  1140.  
  1141. <primitive 98 #Point \
  1142.      <primitive 97 #Point #Magnitude #\lst\prelude\point.st \
  1143.      #(  #xvalue #yvalue ) \
  1144.      #( #y: #y #x:y: #x: #x #transpose #printString #min: #max: #dist: #asString #abs #// #/ #- #+ #* #= #>= #<= #<  ) \
  1145.      temp 3 4 > >
  1146.  
  1147. temp <- <primitive 110 7 >
  1148. <primitive 112 temp 1         " next: " \
  1149.      #( #[ 5 30 33 176 114 81 33 178 225 3 6 34 35 32 167 \
  1150.  208 243 179 242 34 243 245] \
  1151.      #(  ) ) >
  1152.  
  1153. <primitive 112 temp 2         " randInteger: " \
  1154.      #( #[ 32 167 33 194 10 47 81 192 243 245] \
  1155.      #(  ) ) >
  1156.  
  1157. <primitive 112 temp 3         " between:and: " \
  1158.      #( #[ 32 167 34 33 193 194 33 192 243 245] \
  1159.      #(  ) ) >
  1160.  
  1161. <primitive 112 temp 4         " next " \
  1162.      #( #[ 16 250 1 35 241 96 250 1 32 243 245] \
  1163.      #(  ) ) >
  1164.  
  1165. <primitive 112 temp 5         " first " \
  1166.      #( #[ 16 250 1 35 241 96 250 1 32 243 245] \
  1167.      #(  ) ) >
  1168.  
  1169. <primitive 112 temp 6         " randomize " \
  1170.      #( #[ 250 0 161 96 245] \
  1171.      #(  ) ) >
  1172.  
  1173. <primitive 112 temp 7         " new " \
  1174.      #( #[ 81 96 245] \
  1175.      #(  ) ) >
  1176.  
  1177. <primitive 98 #Random \
  1178.      <primitive 97 #Random #Object #\lst\prelude\random.st \
  1179.      #(  #seed ) \
  1180.      #( #next: #randInteger: #between:and: #next #first #randomize #new  ) \
  1181.      temp 4 6 > >
  1182.  
  1183. temp <- <primitive 110 23 >
  1184. <primitive 112 temp 1         " size " \
  1185.      #( #[ 80 113 32 225 2 6 33 81 192 241 113 243 179 242 33 \
  1186.  243 245] \
  1187.      #(  ) ) >
  1188.  
  1189. <primitive 112 temp 2         " shallowCopy " \
  1190.      #( #[ 5 48 160 113 32 225 2 5 33 34 11 22 243 179 242 \
  1191.  32 33 191 243 245] \
  1192.      #(  ) ) >
  1193.  
  1194. <primitive 112 temp 3         " select: " \
  1195.      #( #[ 32 32 164 160 226 2 11 33 35 180 247 3 34 35 189 \
  1196.  242 34 243 215 243 245] \
  1197.      #(  ) ) >
  1198.  
  1199. <primitive 112 temp 4         " remove:ifAbsent: " \
  1200.      #( #[ 32 33 11 30 247 6 32 33 11 39 248 3 242 34 165 \
  1201.  243 245] \
  1202.      #(  ) ) >
  1203.  
  1204. <primitive 112 temp 5         " remove: " \
  1205.      #( #[ 32 33 224 4 32 48 188 244 216 242 33 243 245] \
  1206.      #( 'attempt to remove object not found in collection'  ) ) >
  1207.  
  1208. <primitive 112 temp 6         " reject: " \
  1209.      #( #[ 32 225 2 5 33 34 180 172 243 11 44 243 245] \
  1210.      #(  ) ) >
  1211.  
  1212. <primitive 112 temp 7         " printString " \
  1213.      #( #[ 32 32 164 169 48 11 17 226 1 9 33 49 11 17 34 \
  1214.  169 11 17 243 215 50 11 17 243 245] \
  1215.      #( ' (' ' ' ' )'  ) ) >
  1216.  
  1217. <primitive 112 temp 8         " occurrencesOf: " \
  1218.      #( #[ 32 80 226 2 13 35 33 201 247 5 34 81 192 248 2 \
  1219.  242 34 243 215 243 245] \
  1220.      #(  ) ) >
  1221.  
  1222. <primitive 112 temp 9         " isEmpty " \
  1223.      #( #[ 32 163 80 201 243 245] \
  1224.      #(  ) ) >
  1225.  
  1226. <primitive 112 temp 10        " inject:into: " \
  1227.      #( #[ 33 115 32 225 4 7 34 35 36 211 241 115 243 179 242 \
  1228.  35 243 245] \
  1229.      #(  ) ) >
  1230.  
  1231. <primitive 112 temp 11        " includes: " \
  1232.      #( #[ 32 225 2 8 34 33 181 247 2 91 244 243 179 242 92 \
  1233.  243 245] \
  1234.      #(  ) ) >
  1235.  
  1236. <primitive 112 temp 12        " first " \
  1237.      #( #[ 32 48 188 243 245] \
  1238.      #( 'subclass should implement first'  ) ) >
  1239.  
  1240. <primitive 112 temp 13        " detect:ifAbsent: " \
  1241.      #( #[ 32 225 3 8 33 35 180 247 2 35 244 243 179 242 34 \
  1242.  165 243 245] \
  1243.      #(  ) ) >
  1244.  
  1245. <primitive 112 temp 14        " detect: " \
  1246.      #( #[ 32 33 224 4 32 48 188 243 223 243 245] \
  1247.      #( 'no object found matching detect'  ) ) >
  1248.  
  1249. <primitive 112 temp 15        " deepCopy " \
  1250.      #( #[ 5 48 160 113 32 225 2 7 33 34 10 20 11 22 243 \
  1251.  179 242 32 33 191 243 245] \
  1252.      #(  ) ) >
  1253.  
  1254. <primitive 112 temp 16        " collect: " \
  1255.      #( #[ 32 32 164 160 226 2 8 34 33 35 180 189 242 34 243 \
  1256.  215 243 245] \
  1257.      #(  ) ) >
  1258.  
  1259. <primitive 112 temp 17        " coerce: " \
  1260.      #( #[ 32 164 160 114 33 225 3 4 34 35 189 243 179 242 34 \
  1261.  243 245] \
  1262.      #(  ) ) >
  1263.  
  1264. <primitive 112 temp 18        " asString " \
  1265.      #( #[ 5 58 32 163 176 241 81 32 163 32 131 0 242 243 245 \
  1266. ] \
  1267.      #( #replaceFrom:to:with:  ) ) >
  1268.  
  1269. <primitive 112 temp 19        " asList " \
  1270.      #( #[ 5 48 160 32 11 20 243 245] \
  1271.      #(  ) ) >
  1272.  
  1273. <primitive 112 temp 20        " asSet " \
  1274.      #( #[ 5 57 160 32 11 19 243 245] \
  1275.      #(  ) ) >
  1276.  
  1277. <primitive 112 temp 21        " asBag " \
  1278.      #( #[ 5 32 160 32 11 19 243 245] \
  1279.      #(  ) ) >
  1280.  
  1281. <primitive 112 temp 22        " asArray " \
  1282.      #( #[ 5 30 32 163 176 241 81 32 163 32 131 0 242 243 245 \
  1283. ] \
  1284.      #( #replaceFrom:to:with:  ) ) >
  1285.  
  1286. <primitive 112 temp 23        " addAll: " \
  1287.      #( #[ 33 225 2 4 32 34 189 243 179 242 245] \
  1288.      #(  ) ) >
  1289.  
  1290. <primitive 98 #Collection \
  1291.      <primitive 97 #Collection #Object #\lst\prelude\collecti.st \
  1292.      #(  ) \
  1293.      #( #size #shallowCopy #select: #remove:ifAbsent: #remove: #reject: #printString #occurrencesOf: #isEmpty #inject:into: #includes: #first #detect:ifAbsent: #detect: #deepCopy #collect: #coerce: #asString #asList #asSet #asBag #asArray #addAll:  ) \
  1294.      temp 5 7 > >
  1295.  
  1296. temp <- <primitive 110 8 >
  1297. <primitive 112 temp 1         " next " \
  1298.      #( #[ 17 162 247 27 17 80 204 247 9 17 81 193 97 16 171 \
  1299.  243 248 10 242 16 167 241 97 161 247 2 93 243 242 249 \
  1300.  31 242 93 243 245] \
  1301.      #(  ) ) >
  1302.  
  1303. <primitive 112 temp 2         " first " \
  1304.      #( #[ 16 166 241 97 161 247 2 93 243 242 17 81 193 97 16 \
  1305.  171 243 245] \
  1306.      #(  ) ) >
  1307.  
  1308. <primitive 112 temp 3         " occurrencesOf: " \
  1309.      #( #[ 16 33 224 2 80 243 213 243 245] \
  1310.      #(  ) ) >
  1311.  
  1312. <primitive 112 temp 4         " size " \
  1313.      #( #[ 16 80 226 1 4 33 34 192 243 215 243 245] \
  1314.      #(  ) ) >
  1315.  
  1316. <primitive 112 temp 5         " remove:ifAbsent: " \
  1317.      #( #[ 16 33 224 3 34 165 244 213 115 81 35 201 247 6 16 \
  1318.  33 11 40 248 7 242 16 33 35 81 193 208 242 245] \
  1319.      #(  ) ) >
  1320.  
  1321. <primitive 112 temp 6         " add:withOccurrences: " \
  1322.      #( #[ 34 224 4 32 33 189 243 183 242 33 243 245] \
  1323.      #(  ) ) >
  1324.  
  1325. <primitive 112 temp 7         " add: " \
  1326.      #( #[ 16 33 81 16 33 224 2 80 243 213 192 208 242 245] \
  1327.      #(  ) ) >
  1328.  
  1329. <primitive 112 temp 8         " new " \
  1330.      #( #[ 5 40 160 96 245] \
  1331.      #(  ) ) >
  1332.  
  1333. <primitive 98 #Bag \
  1334.      <primitive 97 #Bag #Collection #\lst\prelude\bag.st \
  1335.      #(  #dict #count ) \
  1336.      #( #next #first #occurrencesOf: #size #remove:ifAbsent: #add:withOccurrences: #add: #new  ) \
  1337.      temp 4 8 > >
  1338.  
  1339. temp <- <primitive 110 7 >
  1340. <primitive 112 temp 1         " next " \
  1341.      #( #[ 16 167 243 245] \
  1342.      #(  ) ) >
  1343.  
  1344. <primitive 112 temp 2         " first " \
  1345.      #( #[ 16 166 243 245] \
  1346.      #(  ) ) >
  1347.  
  1348. <primitive 112 temp 3         " occurrencesOf: " \
  1349.      #( #[ 16 33 11 30 247 3 81 248 2 242 80 243 245] \
  1350.      #(  ) ) >
  1351.  
  1352. <primitive 112 temp 4         " size " \
  1353.      #( #[ 16 163 243 245] \
  1354.      #(  ) ) >
  1355.  
  1356. <primitive 112 temp 5         " remove:ifAbsent: " \
  1357.      #( #[ 16 33 34 216 242 245] \
  1358.      #(  ) ) >
  1359.  
  1360. <primitive 112 temp 6         " add: " \
  1361.      #( #[ 16 33 11 30 246 3 16 33 189 242 245] \
  1362.      #(  ) ) >
  1363.  
  1364. <primitive 112 temp 7         " new " \
  1365.      #( #[ 5 48 160 96 245] \
  1366.      #(  ) ) >
  1367.  
  1368. <primitive 98 #Set \
  1369.      <primitive 97 #Set #Collection #\lst\prelude\set.st \
  1370.      #(  #list ) \
  1371.      #( #next #first #occurrencesOf: #size #remove:ifAbsent: #add: #new  ) \
  1372.      temp 3 4 > >
  1373.  
  1374. temp <- <primitive 110 19 >
  1375. <primitive 112 temp 1         " values " \
  1376.      #( #[ 5 32 160 113 32 225 2 4 33 34 189 243 179 242 33 \
  1377.  243 245] \
  1378.      #(  ) ) >
  1379.  
  1380. <primitive 112 temp 2         " select: " \
  1381.      #( #[ 32 32 5 40 160 226 2 13 33 35 180 247 5 34 32 \
  1382.  171 35 208 242 34 243 215 191 243 245] \
  1383.      #(  ) ) >
  1384.  
  1385. <primitive 112 temp 3         " removeKey:ifAbsent: " \
  1386.      #( #[ 32 48 188 243 245] \
  1387.      #( 'subclass should implement RemoveKey:ifAbsent:'  ) ) >
  1388.  
  1389. <primitive 112 temp 4         " removeKey: " \
  1390.      #( #[ 32 33 224 6 32 48 188 242 33 244 217 243 245] \
  1391.      #( 'no element associated with key'  ) ) >
  1392.  
  1393. <primitive 112 temp 5         " remove: " \
  1394.      #( #[ 32 48 188 243 245] \
  1395.      #( 'object must be removed with explicit key'  ) ) >
  1396.  
  1397. <primitive 112 temp 6         " keysSelect: " \
  1398.      #( #[ 32 32 5 40 160 226 2 14 33 35 171 180 247 5 34 \
  1399.  32 171 35 208 242 34 243 215 191 243 245] \
  1400.      #(  ) ) >
  1401.  
  1402. <primitive 112 temp 7         " keysDo: " \
  1403.      #( #[ 32 225 2 5 33 32 171 180 243 179 243 245] \
  1404.      #(  ) ) >
  1405.  
  1406. <primitive 112 temp 8         " keys " \
  1407.      #( #[ 5 57 160 113 32 225 2 4 33 34 189 243 11 32 242 \
  1408.  33 243 245] \
  1409.      #(  ) ) >
  1410.  
  1411. <primitive 112 temp 9         " indexOf:ifAbsent: " \
  1412.      #( #[ 32 225 3 9 35 33 201 247 3 32 171 244 243 179 242 \
  1413.  34 165 243 245] \
  1414.      #(  ) ) >
  1415.  
  1416. <primitive 112 temp 10        " indexOf: " \
  1417.      #( #[ 32 33 224 4 32 48 188 243 214 243 245] \
  1418.      #( 'indexOf element not found'  ) ) >
  1419.  
  1420. <primitive 112 temp 11        " includesKey: " \
  1421.      #( #[ 32 33 224 2 92 244 213 242 91 243 245] \
  1422.      #(  ) ) >
  1423.  
  1424. <primitive 112 temp 12        " collect: " \
  1425.      #( #[ 32 32 5 40 160 226 2 10 34 32 171 33 35 180 208 \
  1426.  242 34 243 215 191 243 245] \
  1427.      #(  ) ) >
  1428.  
  1429. <primitive 112 temp 13        " coerce: " \
  1430.      #( #[ 32 164 160 114 33 226 3 5 34 35 36 208 243 11 23 \
  1431.  242 34 243 245] \
  1432.      #(  ) ) >
  1433.  
  1434. <primitive 112 temp 14        " binaryDo: " \
  1435.      #( #[ 32 225 3 6 33 32 171 35 211 243 179 242 93 243 245 \
  1436. ] \
  1437.      #(  ) ) >
  1438.  
  1439. <primitive 112 temp 15        " atAll:put: " \
  1440.      #( #[ 33 225 3 5 32 35 34 208 243 179 242 245] \
  1441.      #(  ) ) >
  1442.  
  1443. <primitive 112 temp 16        " at: " \
  1444.      #( #[ 32 33 224 10 32 33 169 48 11 17 188 242 33 244 213 \
  1445.  243 245] \
  1446.      #( ': association not found'  ) ) >
  1447.  
  1448. <primitive 112 temp 17        " asDictionary " \
  1449.      #( #[ 5 40 160 113 32 226 2 5 33 34 35 208 243 11 23 \
  1450.  242 33 243 245] \
  1451.      #(  ) ) >
  1452.  
  1453. <primitive 112 temp 18        " addAll: " \
  1454.      #( #[ 33 226 2 5 32 34 35 208 243 11 23 242 33 243 245 \
  1455. ] \
  1456.      #(  ) ) >
  1457.  
  1458. <primitive 112 temp 19        " add: " \
  1459.      #( #[ 32 48 188 243 245] \
  1460.      #( 'Must add with explicit key'  ) ) >
  1461.  
  1462. <primitive 98 #KeyedCollection \
  1463.      <primitive 97 #KeyedCollection #Collection #\lst\prelude\kcollect.st \
  1464.      #(  ) \
  1465.      #( #values #select: #removeKey:ifAbsent: #removeKey: #remove: #keysSelect: #keysDo: #keys #indexOf:ifAbsent: #indexOf: #includesKey: #collect: #coerce: #binaryDo: #atAll:put: #at: #asDictionary #addAll: #add:  ) \
  1466.      temp 5 9 > >
  1467.  
  1468. temp <- <primitive 110 12 >
  1469. <primitive 112 temp 1         " checkBucket: " \
  1470.      #( #[ 16 33 241 97 177 241 98 161 247 2 93 243 242 18 166 \
  1471.  243 245] \
  1472.      #(  ) ) >
  1473.  
  1474. <primitive 112 temp 2         " currentKey " \
  1475.      #( #[ 18 162 247 11 18 10 21 113 33 162 247 3 33 10 49 \
  1476.  243 245] \
  1477.      #(  ) ) >
  1478.  
  1479. <primitive 112 temp 3         " printString " \
  1480.      #( #[ 32 32 164 169 48 11 17 226 1 17 33 32 171 169 11 \
  1481.  17 49 11 17 34 169 11 17 50 11 17 243 215 51 11 \
  1482.  17 243 245] \
  1483.      #( ' ( ' ' @ ' ' ' ')'  ) ) >
  1484.  
  1485. <primitive 112 temp 4         " next " \
  1486.      #( #[ 18 167 241 113 162 247 4 33 10 50 243 242 17 5 17 \
  1487.  199 247 20 17 81 192 97 32 17 11 24 241 113 162 247 \
  1488.  4 33 10 50 243 242 249 26 242 93 243 245] \
  1489.      #(  ) ) >
  1490.  
  1491. <primitive 112 temp 5         " first " \
  1492.      #( #[ 81 5 17 178 225 2 14 32 34 11 24 241 113 162 247 \
  1493.  4 33 10 50 244 243 179 242 93 243 245] \
  1494.      #(  ) ) >
  1495.  
  1496. <primitive 112 temp 6         " findAssociation:inList: " \
  1497.      #( #[ 34 225 3 10 35 10 49 33 201 247 2 35 244 243 179 \
  1498.  242 93 243 245] \
  1499.      #(  ) ) >
  1500.  
  1501. <primitive 112 temp 7         " removeKey:ifAbsent: " \
  1502.      #( #[ 32 33 11 28 115 32 33 35 222 116 36 161 247 3 34 \
  1503.  165 243 242 35 36 224 3 34 165 244 216 10 50 243 245 \
  1504. ] \
  1505.      #(  ) ) >
  1506.  
  1507. <primitive 112 temp 8         " at:ifAbsent: " \
  1508.      #( #[ 32 33 11 28 115 32 33 35 222 116 36 161 247 3 34 \
  1509.  165 243 242 36 10 50 243 245] \
  1510.      #(  ) ) >
  1511.  
  1512. <primitive 112 temp 9         " at:put: " \
  1513.      #( #[ 32 33 11 28 115 32 33 35 222 116 36 161 247 15 5 \
  1514.  53 160 33 11 50 34 11 51 116 35 36 189 248 5 242 \
  1515.  36 34 11 51 242 34 243 245] \
  1516.      #(  ) ) >
  1517.  
  1518. <primitive 112 temp 10        " getList: " \
  1519.      #( #[ 32 33 11 29 115 16 35 177 114 34 161 247 8 5 48 \
  1520.  160 114 16 35 34 208 242 34 243 245] \
  1521.      #(  ) ) >
  1522.  
  1523. <primitive 112 temp 11        " hashNumber: " \
  1524.      #( #[ 33 250 1 5 16 163 195 81 192 243 245] \
  1525.      #(  ) ) >
  1526.  
  1527. <primitive 112 temp 12        " new " \
  1528.      #( #[ 5 30 5 17 176 96 245] \
  1529.      #(  ) ) >
  1530.  
  1531. <primitive 98 #Dictionary \
  1532.      <primitive 97 #Dictionary #KeyedCollection #\lst\prelude\dictiona.st \
  1533.      #(  #hashTable #currentBucket #currentList ) \
  1534.      #( #checkBucket: #currentKey #printString #next #first #findAssociation:inList: #removeKey:ifAbsent: #at:ifAbsent: #at:put: #getList: #hashNumber: #new  ) \
  1535.      temp 5 6 > >
  1536.  
  1537. temp <- <primitive 110 21 >
  1538. <primitive 112 temp 1         " with:do: " \
  1539.      #( #[ 32 166 115 33 166 116 35 162 247 15 34 35 36 211 242 \
  1540.  32 167 115 33 167 241 116 242 249 19 242 93 243 245] \
  1541.      #(  ) ) >
  1542.  
  1543. <primitive 112 temp 2         " sort: " \
  1544.      #( #[ 32 174 116 82 36 163 178 225 5 51 37 81 193 114 34 \
  1545.  81 203 252 11 33 36 34 177 36 34 81 192 177 211 172 \
  1546.  247 28 36 34 177 115 36 34 36 34 81 192 177 208 242 \
  1547.  36 34 81 192 35 208 242 34 81 193 241 114 242 249 46 \
  1548.  243 179 242 32 36 191 243 245] \
  1549.      #(  ) ) >
  1550.  
  1551. <primitive 112 temp 3         " sort " \
  1552.      #( #[ 32 226 1 4 33 34 200 243 11 46 243 245] \
  1553.      #(  ) ) >
  1554.  
  1555. <primitive 112 temp 4         " select: " \
  1556.      #( #[ 32 32 5 48 160 226 2 12 33 35 180 247 4 34 35 \
  1557.  11 22 242 34 243 215 191 243 245] \
  1558.      #(  ) ) >
  1559.  
  1560. <primitive 112 temp 5         " reversed " \
  1561.      #( #[ 5 30 32 163 241 114 176 113 32 225 3 11 33 34 35 \
  1562.  208 242 34 81 193 241 114 243 179 242 32 33 191 243 245 \
  1563. ] \
  1564.      #(  ) ) >
  1565.  
  1566. <primitive 112 temp 6         " reverseDo: " \
  1567.      #( #[ 32 10 31 114 32 10 25 115 34 35 203 247 20 32 34 \
  1568.  11 52 247 5 33 32 34 177 180 242 34 81 193 241 114 \
  1569.  242 249 25 242 93 243 245] \
  1570.      #(  ) ) >
  1571.  
  1572. <primitive 112 temp 7         " replaceFrom:to:with:startingAt: " \
  1573.      #( #[ 80 117 33 37 192 34 200 247 19 32 33 37 192 35 37 \
  1574.  36 192 177 208 242 37 81 192 241 117 242 249 26 242 245 \
  1575. ] \
  1576.      #(  ) ) >
  1577.  
  1578. <primitive 112 temp 8         " replaceFrom:to:with: " \
  1579.      #( #[ 35 33 226 4 9 32 36 37 208 242 36 81 192 243 215 \
  1580.  242 245] \
  1581.      #(  ) ) >
  1582.  
  1583. <primitive 112 temp 9         " last " \
  1584.      #( #[ 80 32 163 201 246 5 32 32 10 31 177 243 245] \
  1585.      #(  ) ) >
  1586.  
  1587. <primitive 112 temp 10        " indexOfSubCollection:startingAt: " \
  1588.      #( #[ 32 33 34 224 6 32 48 188 242 93 243 131 1 243 245 \
  1589. ] \
  1590.      #( 'element not found' #indexOfSubCollection:startingAt:ifAbsent:  ) ) >
  1591.  
  1592. <primitive 112 temp 11        " indexOfSubCollection:startingAt:ifAbsent: " \
  1593.      #( #[ 34 116 32 163 33 163 193 117 36 37 200 247 17 33 32 \
  1594.  36 221 247 2 36 243 242 36 81 192 241 116 242 249 22 \
  1595.  242 35 165 243 245] \
  1596.      #(  ) ) >
  1597.  
  1598. <primitive 112 temp 12        " findLast:ifAbsent: " \
  1599.      #( #[ 32 225 3 9 33 35 180 247 3 32 171 244 243 11 42 \
  1600.  242 34 165 243 245] \
  1601.      #(  ) ) >
  1602.  
  1603. <primitive 112 temp 13        " findLast: " \
  1604.      #( #[ 32 33 224 4 32 48 188 243 220 242 245] \
  1605.      #( 'last element not found'  ) ) >
  1606.  
  1607. <primitive 112 temp 14        " findFirst:ifAbsent: " \
  1608.      #( #[ 32 225 3 9 33 35 180 247 3 32 171 244 243 179 242 \
  1609.  34 165 243 245] \
  1610.      #(  ) ) >
  1611.  
  1612. <primitive 112 temp 15        " findFirst: " \
  1613.      #( #[ 32 33 224 4 32 48 188 243 219 243 245] \
  1614.      #( 'first element not found'  ) ) >
  1615.  
  1616. <primitive 112 temp 16        " equals:startingAt: " \
  1617.      #( #[ 80 115 32 225 4 22 36 33 34 35 192 224 2 92 244 \
  1618.  213 201 246 2 92 244 242 35 81 192 241 115 243 179 242 \
  1619.  91 243 245] \
  1620.      #(  ) ) >
  1621.  
  1622. <primitive 112 temp 17        " copyWithout: " \
  1623.      #( #[ 5 48 160 114 32 225 3 10 35 33 181 246 4 34 35 \
  1624.  11 22 243 179 242 32 34 191 243 245] \
  1625.      #(  ) ) >
  1626.  
  1627. <primitive 112 temp 18        " copyWith: " \
  1628.      #( #[ 32 5 48 160 241 32 11 20 242 241 33 11 22 242 191 \
  1629.  243 245] \
  1630.      #(  ) ) >
  1631.  
  1632. <primitive 112 temp 19        " copyFrom:to: " \
  1633.      #( #[ 5 48 160 115 33 34 178 225 4 7 35 32 36 177 11 \
  1634.  22 243 179 242 32 35 191 243 245] \
  1635.      #(  ) ) >
  1636.  
  1637. <primitive 112 temp 20        " collect: " \
  1638.      #( #[ 32 32 5 48 160 226 2 9 34 33 35 180 11 22 242 \
  1639.  34 243 215 191 243 245] \
  1640.      #(  ) ) >
  1641.  
  1642. <primitive 112 temp 21        " , " \
  1643.      #( #[ 32 5 48 160 241 32 11 20 242 241 33 11 20 242 191 \
  1644.  243 245] \
  1645.      #(  ) ) >
  1646.  
  1647. <primitive 98 #SequenceableCollection \
  1648.      <primitive 97 #SequenceableCollection #KeyedCollection #\lst\prelude\scollecti.st \
  1649.      #(  ) \
  1650.      #( #with:do: #sort: #sort #select: #reversed #reverseDo: #replaceFrom:to:with:startingAt: #replaceFrom:to:with: #last #indexOfSubCollection:startingAt: #indexOfSubCollection:startingAt:ifAbsent: #findLast:ifAbsent: #findLast: #findFirst:ifAbsent: #findFirst: #equals:startingAt: #copyWithout: #copyWith: #copyFrom:to: #collect: #,  ) \
  1651.      temp 6 9 > >
  1652.  
  1653. temp <- <primitive 110 13 >
  1654. <primitive 112 temp 1         " shallowCopy " \
  1655.      #( #[ 16 17 18 212 243 245] \
  1656.      #(  ) ) >
  1657.  
  1658. <primitive 112 temp 2         " deepCopy " \
  1659.      #( #[ 16 17 18 212 243 245] \
  1660.      #(  ) ) >
  1661.  
  1662. <primitive 112 temp 3         " removeKey:ifAbsent: " \
  1663.      #( #[ 32 48 188 242 34 165 243 245] \
  1664.      #( 'cannot remove from Interval'  ) ) >
  1665.  
  1666. <primitive 112 temp 4         " add: " \
  1667.      #( #[ 32 48 188 243 245] \
  1668.      #( 'cannot store into Interval'  ) ) >
  1669.  
  1670. <primitive 112 temp 5         " at:put: " \
  1671.      #( #[ 32 48 188 243 245] \
  1672.      #( 'cannot store into Interval'  ) ) >
  1673.  
  1674. <primitive 112 temp 6         " coerce: " \
  1675.      #( #[ 33 174 243 245] \
  1676.      #(  ) ) >
  1677.  
  1678. <primitive 112 temp 7         " printString " \
  1679.      #( #[ 48 16 169 11 17 49 11 17 17 169 11 17 50 11 17 \
  1680.  18 169 11 17 243 245] \
  1681.      #( 'Interval ' ' to ' ' by '  ) ) >
  1682.  
  1683. <primitive 112 temp 8         " at:ifAbsent: " \
  1684.      #( #[ 16 18 33 81 193 194 192 115 32 35 11 31 247 3 35 \
  1685.  248 3 242 34 165 243 245] \
  1686.      #(  ) ) >
  1687.  
  1688. <primitive 112 temp 9         " next " \
  1689.      #( #[ 19 18 192 99 32 19 11 31 247 1 19 243 245] \
  1690.      #(  ) ) >
  1691.  
  1692. <primitive 112 temp 10        " first " \
  1693.      #( #[ 16 99 32 19 11 31 247 1 19 243 245] \
  1694.      #(  ) ) >
  1695.  
  1696. <primitive 112 temp 11        " inRange: " \
  1697.      #( #[ 18 170 247 10 33 16 203 252 3 33 17 200 248 9 242 \
  1698.  33 17 203 252 3 33 16 200 243 245] \
  1699.      #(  ) ) >
  1700.  
  1701. <primitive 112 temp 12        " size " \
  1702.      #( #[ 18 170 247 5 17 16 199 248 4 242 16 17 199 247 3 \
  1703.  80 248 9 242 17 16 193 18 11 18 81 192 243 245] \
  1704.      #(  ) ) >
  1705.  
  1706. <primitive 112 temp 13        " from:to:by: " \
  1707.      #( #[ 33 241 96 99 34 97 35 98 245] \
  1708.      #(  ) ) >
  1709.  
  1710. <primitive 98 #Interval \
  1711.      <primitive 97 #Interval #SequenceableCollection #\lst\prelude\interval.st \
  1712.      #(  #lower #upper #step #current ) \
  1713.      #( #shallowCopy #deepCopy #removeKey:ifAbsent: #add: #at:put: #coerce: #printString #at:ifAbsent: #next #first #inRange: #size #from:to:by:  ) \
  1714.      temp 4 5 > >
  1715.  
  1716. temp <- <primitive 110 17 >
  1717. <primitive 112 temp 1         " isEmpty " \
  1718.      #( #[ 16 93 181 243 245] \
  1719.      #(  ) ) >
  1720.  
  1721. <primitive 112 temp 2         " last " \
  1722.      #( #[ 16 161 247 2 93 243 242 32 10 24 10 49 243 245] \
  1723.      #(  ) ) >
  1724.  
  1725. <primitive 112 temp 3         " current " \
  1726.      #( #[ 17 10 49 243 245] \
  1727.      #(  ) ) >
  1728.  
  1729. <primitive 112 temp 4         " next " \
  1730.      #( #[ 17 10 50 241 97 162 247 3 17 10 49 243 245] \
  1731.      #(  ) ) >
  1732.  
  1733. <primitive 112 temp 5         " first " \
  1734.      #( #[ 16 241 97 162 247 3 17 10 49 243 245] \
  1735.      #(  ) ) >
  1736.  
  1737. <primitive 112 temp 6         " removeLast " \
  1738.      #( #[ 16 161 247 4 32 10 37 243 242 32 32 10 30 224 4 \
  1739.  32 10 37 243 216 243 245] \
  1740.      #(  ) ) >
  1741.  
  1742. <primitive 112 temp 7         " removeFirst " \
  1743.      #( #[ 16 161 247 4 32 10 37 243 242 16 113 16 10 50 96 \
  1744.  33 10 49 243 245] \
  1745.      #(  ) ) >
  1746.  
  1747. <primitive 112 temp 8         " removeError " \
  1748.      #( #[ 32 48 188 243 245] \
  1749.      #( 'cannot remove from an empty list'  ) ) >
  1750.  
  1751. <primitive 112 temp 9         " remove:ifAbsent: " \
  1752.      #( #[ 16 161 247 3 34 165 243 242 32 93 226 3 31 17 10 \
  1753.  49 33 181 247 21 35 161 247 7 17 10 50 241 96 248 \
  1754.  7 242 35 17 10 50 11 51 242 33 244 242 17 243 215 \
  1755.  242 34 165 243 245] \
  1756.      #(  ) ) >
  1757.  
  1758. <primitive 112 temp 10        " remove: " \
  1759.      #( #[ 32 33 224 4 32 48 188 243 216 243 245] \
  1760.      #( 'cant find item'  ) ) >
  1761.  
  1762. <primitive 112 temp 11        " findLast " \
  1763.      #( #[ 16 241 113 161 247 2 93 243 242 33 10 50 162 247 8 \
  1764.  33 10 50 241 113 242 249 14 242 33 243 245] \
  1765.      #(  ) ) >
  1766.  
  1767. <primitive 112 temp 12        " coerce: " \
  1768.      #( #[ 5 48 160 114 33 225 3 5 34 35 11 22 243 179 242 \
  1769.  34 243 245] \
  1770.      #(  ) ) >
  1771.  
  1772. <primitive 112 temp 13        " addAllLast: " \
  1773.      #( #[ 33 225 2 5 32 34 11 22 243 179 242 245] \
  1774.      #(  ) ) >
  1775.  
  1776. <primitive 112 temp 14        " addAllFirst: " \
  1777.      #( #[ 33 225 2 5 32 34 11 21 243 179 242 245] \
  1778.      #(  ) ) >
  1779.  
  1780. <primitive 112 temp 15        " addLast: " \
  1781.      #( #[ 16 161 247 5 32 33 11 21 243 242 32 10 24 5 53 \
  1782.  160 33 11 50 93 11 51 11 51 242 33 243 245] \
  1783.      #(  ) ) >
  1784.  
  1785. <primitive 112 temp 16        " addFirst: " \
  1786.      #( #[ 5 53 160 33 11 50 16 11 51 96 33 243 245] \
  1787.      #(  ) ) >
  1788.  
  1789. <primitive 112 temp 17        " add: " \
  1790.      #( #[ 5 53 160 33 11 50 16 11 51 96 33 243 245] \
  1791.      #(  ) ) >
  1792.  
  1793. <primitive 98 #List \
  1794.      <primitive 97 #List #SequenceableCollection #\lst\prelude\list.st \
  1795.      #(  #first #current ) \
  1796.      #( #isEmpty #last #current #next #first #removeLast #removeFirst #removeError #remove:ifAbsent: #remove: #findLast #coerce: #addAllLast: #addAllFirst: #addLast: #addFirst: #add:  ) \
  1797.      temp 5 8 > >
  1798.  
  1799. temp <- <primitive 110 13 >
  1800. <primitive 112 temp 1         " shallowCopy " \
  1801.      #( #[ 32 164 32 163 176 113 81 32 163 178 225 2 7 33 34 \
  1802.  32 34 177 208 243 179 242 33 243 245] \
  1803.      #(  ) ) >
  1804.  
  1805. <primitive 112 temp 2         " padTo: " \
  1806.      #( #[ 32 163 33 199 247 12 32 32 164 33 32 163 193 176 11 \
  1807.  17 248 2 242 32 243 245] \
  1808.      #(  ) ) >
  1809.  
  1810. <primitive 112 temp 3         " next " \
  1811.      #( #[ 16 81 192 96 16 32 163 200 247 3 32 16 177 243 245 \
  1812. ] \
  1813.      #(  ) ) >
  1814.  
  1815. <primitive 112 temp 4         " lastKey " \
  1816.      #( #[ 32 163 243 245] \
  1817.      #(  ) ) >
  1818.  
  1819. <primitive 112 temp 5         " firstKey " \
  1820.      #( #[ 81 243 245] \
  1821.      #(  ) ) >
  1822.  
  1823. <primitive 112 temp 6         " first " \
  1824.      #( #[ 81 96 16 32 163 200 247 3 32 16 177 243 245] \
  1825.      #(  ) ) >
  1826.  
  1827. <primitive 112 temp 7         " do: " \
  1828.      #( #[ 81 32 163 178 225 2 8 34 96 33 32 34 177 180 243 \
  1829.  179 242 245] \
  1830.      #(  ) ) >
  1831.  
  1832. <primitive 112 temp 8         " deepCopy " \
  1833.      #( #[ 32 164 32 163 176 113 81 32 163 178 225 2 9 33 34 \
  1834.  32 34 177 10 20 208 243 179 242 33 243 245] \
  1835.      #(  ) ) >
  1836.  
  1837. <primitive 112 temp 9         " currentKey " \
  1838.      #( #[ 16 243 245] \
  1839.      #(  ) ) >
  1840.  
  1841. <primitive 112 temp 10        " copyFrom:to: " \
  1842.      #( #[ 34 33 193 81 192 115 32 164 35 176 116 36 81 35 32 \
  1843.  33 132 0 242 36 243 245] \
  1844.      #( #replaceFrom:to:with:startingAt:  ) ) >
  1845.  
  1846. <primitive 112 temp 11        " coerce: " \
  1847.      #( #[ 32 164 33 163 176 114 34 81 33 163 33 131 0 242 34 \
  1848.  243 245] \
  1849.      #( #replaceFrom:to:with:  ) ) >
  1850.  
  1851. <primitive 112 temp 12        " at:ifAbsent: " \
  1852.      #( #[ 33 80 200 251 4 33 32 163 204 247 3 34 165 243 242 \
  1853.  32 33 177 243 245] \
  1854.      #(  ) ) >
  1855.  
  1856. <primitive 112 temp 13        " = " \
  1857.      #( #[ 32 163 33 163 202 247 2 92 243 242 80 114 32 225 3 \
  1858.  14 35 33 34 81 192 241 114 177 202 247 2 92 244 243 \
  1859.  179 242 91 243 245] \
  1860.      #(  ) ) >
  1861.  
  1862. <primitive 98 #ArrayedCollection \
  1863.      <primitive 97 #ArrayedCollection #SequenceableCollection #\lst\prelude\acollect.st \
  1864.      #(  #current ) \
  1865.      #( #shallowCopy #padTo: #next #lastKey #firstKey #first #do: #deepCopy #currentKey #copyFrom:to: #coerce: #at:ifAbsent: #=  ) \
  1866.      temp 5 7 > >
  1867.  
  1868. temp <- <primitive 110 13 >
  1869. <primitive 112 temp 1         " write: " \
  1870.      #( #[ 32 33 250 2 132 243 245] \
  1871.      #(  ) ) >
  1872.  
  1873. <primitive 112 temp 2         " size " \
  1874.      #( #[ 32 250 1 134 243 245] \
  1875.      #(  ) ) >
  1876.  
  1877. <primitive 112 temp 3         " read " \
  1878.      #( #[ 32 250 1 131 243 245] \
  1879.      #(  ) ) >
  1880.  
  1881. <primitive 112 temp 4         " open:for: " \
  1882.      #( #[ 32 33 34 250 3 130 242 245] \
  1883.      #(  ) ) >
  1884.  
  1885. <primitive 112 temp 5         " open: " \
  1886.      #( #[ 32 33 48 250 3 130 242 245] \
  1887.      #( 'r'  ) ) >
  1888.  
  1889. <primitive 112 temp 6         " next " \
  1890.      #( #[ 32 10 36 243 245] \
  1891.      #(  ) ) >
  1892.  
  1893. <primitive 112 temp 7         " first " \
  1894.      #( #[ 32 80 177 243 245] \
  1895.      #(  ) ) >
  1896.  
  1897. <primitive 112 temp 8         " currentKey " \
  1898.      #( #[ 32 250 1 136 243 245] \
  1899.      #(  ) ) >
  1900.  
  1901. <primitive 112 temp 9         " at:put: " \
  1902.      #( #[ 32 33 250 2 135 242 32 34 11 49 243 245] \
  1903.      #(  ) ) >
  1904.  
  1905. <primitive 112 temp 10        " at: " \
  1906.      #( #[ 32 33 250 2 135 242 32 10 36 243 245] \
  1907.      #(  ) ) >
  1908.  
  1909. <primitive 112 temp 11        " modeString " \
  1910.      #( #[ 32 81 250 2 133 242 245] \
  1911.      #(  ) ) >
  1912.  
  1913. <primitive 112 temp 12        " modeInteger " \
  1914.      #( #[ 32 82 250 2 133 242 245] \
  1915.      #(  ) ) >
  1916.  
  1917. <primitive 112 temp 13        " modeCharacter " \
  1918.      #( #[ 32 80 250 2 133 242 245] \
  1919.      #(  ) ) >
  1920.  
  1921. <primitive 98 #File \
  1922.      <primitive 97 #File #SequenceableCollection #\lst\prelude\file.st \
  1923.      #(  ) \
  1924.      #( #write: #size #read #open:for: #open: #next #first #currentKey #at:put: #at: #modeString #modeInteger #modeCharacter  ) \
  1925.      temp 3 4 > >
  1926.  
  1927. temp <- <primitive 110 5 >
  1928. <primitive 112 temp 1         " size " \
  1929.      #( #[ 32 250 1 117 243 245] \
  1930.      #(  ) ) >
  1931.  
  1932. <primitive 112 temp 2         " printString " \
  1933.      #( #[ 48 113 81 32 163 178 225 2 13 33 32 34 177 169 11 \
  1934.  17 49 11 17 241 113 243 179 242 33 50 11 17 243 245 \
  1935. ] \
  1936.      #( '#[ ' ' ' ']'  ) ) >
  1937.  
  1938. <primitive 112 temp 3         " at:put: " \
  1939.      #( #[ 32 33 34 250 3 119 242 245] \
  1940.      #(  ) ) >
  1941.  
  1942. <primitive 112 temp 4         " at: " \
  1943.      #( #[ 32 33 250 2 118 243 245] \
  1944.      #(  ) ) >
  1945.  
  1946. <primitive 112 temp 5         " new: " \
  1947.      #( #[ 33 250 1 116 243 245] \
  1948.      #(  ) ) >
  1949.  
  1950. <primitive 98 #ByteArray \
  1951.      <primitive 97 #ByteArray #ArrayedCollection #\lst\prelude\bytearra.st \
  1952.      #(  ) \
  1953.      #( #size #printString #at:put: #at: #new:  ) \
  1954.      temp 3 6 > >
  1955.  
  1956. temp <- <primitive 110 4 >
  1957. <primitive 112 temp 1         " wait " \
  1958.      #( #[ 250 0 148 242 16 80 201 247 10 32 95 11 22 242 95 \
  1959.  10 18 248 6 242 16 81 193 241 96 242 250 0 149 242 \
  1960.  245] \
  1961.      #(  ) ) >
  1962.  
  1963. <primitive 112 temp 2         " signal " \
  1964.      #( #[ 250 0 148 242 32 10 27 247 7 16 81 192 241 96 248 \
  1965.  6 242 32 10 38 10 48 242 250 0 149 242 245] \
  1966.      #(  ) ) >
  1967.  
  1968. <primitive 112 temp 3         " new: " \
  1969.      #( #[ 33 96 245] \
  1970.      #(  ) ) >
  1971.  
  1972. <primitive 112 temp 4         " new " \
  1973.      #( #[ 80 96 245] \
  1974.      #(  ) ) >
  1975.  
  1976. <primitive 98 #Semaphore \
  1977.      <primitive 97 #Semaphore #List #\lst\prelude\semaphor.st \
  1978.      #(  #excessSignals ) \
  1979.      #( #wait #signal #new: #new  ) \
  1980.      temp 2 4 > >
  1981.  
  1982. temp <- <primitive 110 8 >
  1983. <primitive 112 temp 1         " yield " \
  1984.      #( #[ 93 243 245] \
  1985.      #(  ) ) >
  1986.  
  1987. <primitive 112 temp 2         " unblock " \
  1988.      #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  1989.  32 83 250 2 145 242 32 10 45 243 245] \
  1990.      #( #TERMINATED 'unblock'  ) ) >
  1991.  
  1992. <primitive 112 temp 3         " termErr: " \
  1993.      #( #[ 48 33 11 17 49 11 17 168 242 245] \
  1994.      #( 'Cannot ' ' a terminated process.'  ) ) >
  1995.  
  1996. <primitive 112 temp 4         " terminate " \
  1997.      #( #[ 32 250 1 142 242 32 10 45 243 245] \
  1998.      #(  ) ) >
  1999.  
  2000. <primitive 112 temp 5         " state " \
  2001.      #( #[ 32 250 1 146 113 33 80 201 247 4 48 113 33 243 242 \
  2002.  33 81 201 247 4 49 113 33 243 242 33 82 201 247 4 \
  2003.  50 113 33 243 242 33 83 201 247 4 50 113 33 243 242 \
  2004.  33 84 203 247 4 51 113 33 243 242 245] \
  2005.      #( #READY #SUSPENDED #BLOCKED #TERMINATED  ) ) >
  2006.  
  2007. <primitive 112 temp 6         " suspend " \
  2008.      #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  2009.  32 81 250 2 145 242 32 10 45 243 245] \
  2010.      #( #TERMINATED 'suspend'  ) ) >
  2011.  
  2012. <primitive 112 temp 7         " resume " \
  2013.      #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  2014.  32 80 250 2 145 242 32 10 45 243 245] \
  2015.      #( #TERMINATED 'resume'  ) ) >
  2016.  
  2017. <primitive 112 temp 8         " block " \
  2018.      #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  2019.  32 82 250 2 145 242 32 10 45 243 245] \
  2020.      #( #TERMINATED 'block'  ) ) >
  2021.  
  2022. <primitive 98 #Process \
  2023.      <primitive 97 #Process #Object #\lst\prelude\process.st \
  2024.      #(  ) \
  2025.      #( #yield #unblock #termErr: #terminate #state #suspend #resume #block  ) \
  2026.      temp 2 4 > >
  2027.  
  2028. temp <- <primitive 110 11 >
  2029. <primitive 112 temp 1         " time: " \
  2030.      #( #[ 250 0 161 114 33 165 242 250 0 161 34 193 243 245] \
  2031.      #(  ) ) >
  2032.  
  2033. <primitive 112 temp 2         " sh: " \
  2034.      #( #[ 33 250 1 125 243 245] \
  2035.      #(  ) ) >
  2036.  
  2037. <primitive 112 temp 3         " perform:withArguments: " \
  2038.      #( #[ 34 33 250 2 143 243 245] \
  2039.      #(  ) ) >
  2040.  
  2041. <primitive 112 temp 4         " noDisplay " \
  2042.      #( #[ 81 80 250 2 8 243 245] \
  2043.      #(  ) ) >
  2044.  
  2045. <primitive 112 temp 5         " getString " \
  2046.      #( #[ 250 0 163 243 245] \
  2047.      #(  ) ) >
  2048.  
  2049. <primitive 112 temp 6         " doPrimitive:withArguments: " \
  2050.      #( #[ 33 34 250 2 30 243 245] \
  2051.      #(  ) ) >
  2052.  
  2053. <primitive 112 temp 7         " displayAssign " \
  2054.      #( #[ 81 82 250 2 8 243 245] \
  2055.      #(  ) ) >
  2056.  
  2057. <primitive 112 temp 8         " display " \
  2058.      #( #[ 81 81 250 2 8 243 245] \
  2059.      #(  ) ) >
  2060.  
  2061. <primitive 112 temp 9         " debug: " \
  2062.      #( #[ 82 33 250 2 8 243 245] \
  2063.      #(  ) ) >
  2064.  
  2065. <primitive 112 temp 10        " date " \
  2066.      #( #[ 250 0 160 243 245] \
  2067.      #(  ) ) >
  2068.  
  2069. <primitive 112 temp 11        " clearScreen " \
  2070.      #( #[ 250 0 162 242 245] \
  2071.      #(  ) ) >
  2072.  
  2073. <primitive 98 #Smalltalk \
  2074.      <primitive 97 #Smalltalk #Dictionary #\lst\prelude\smalltal.st \
  2075.      #(  ) \
  2076.      #( #time: #sh: #perform:withArguments: #noDisplay #getString #doPrimitive:withArguments: #displayAssign #display #debug: #date #clearScreen  ) \
  2077.      temp 3 3 > >
  2078.  
  2079. temp <- <primitive 110 13 >
  2080. <primitive 112 temp 1        " up " \
  2081.     #( #[ 91 98 245] \
  2082.     #(  ) ) >
  2083.  
  2084. <primitive 112 temp 2        " turn: " \
  2085.     #( #[ 19 33 192 99 245] \
  2086.     #(  ) ) >
  2087.  
  2088. <primitive 112 temp 3        " location " \
  2089.     #( #[ 16 17 129 0 243 245] \
  2090.     #( #@  ) ) >
  2091.  
  2092. <primitive 112 temp 4        " isUp " \
  2093.     #( #[ 18 243 245] \
  2094.     #(  ) ) >
  2095.  
  2096. <primitive 112 temp 5        " goTo: " \
  2097.     #( #[ 18 246 11 16 17 33 10 49 33 10 50 250 4 177 242 \
  2098.  33 10 49 96 33 10 50 97 245] \
  2099.     #(  ) ) >
  2100.  
  2101. <primitive 112 temp 6        " go: " \
  2102.     #( #[ 19 128 0 128 1 33 194 10 41 16 192 114 19 128 0 \
  2103.  128 2 33 194 10 41 17 192 115 32 34 35 129 3 129 \
  2104.  4 242 245] \
  2105.     #( #radians #sin #cos #@ #goTo:  ) ) >
  2106.  
  2107. <primitive 112 temp 7        " extent:to: " \
  2108.     #( #[ 33 10 49 33 10 50 34 10 49 34 10 50 250 4 176 \
  2109.  242 245] \
  2110.     #(  ) ) >
  2111.  
  2112. <primitive 112 temp 8        " erase " \
  2113.     #( #[ 250 0 170 242 245] \
  2114.     #(  ) ) >
  2115.  
  2116. <primitive 112 temp 9        " down " \
  2117.     #( #[ 92 98 245] \
  2118.     #(  ) ) >
  2119.  
  2120. <primitive 112 temp 10        " direction: " \
  2121.     #( #[ 33 99 245] \
  2122.     #(  ) ) >
  2123.  
  2124. <primitive 112 temp 11        " direction " \
  2125.     #( #[ 19 243 245] \
  2126.     #(  ) ) >
  2127.  
  2128. <primitive 112 temp 12        " circleRadius: " \
  2129.     #( #[ 16 17 33 250 3 174 242 245] \
  2130.     #(  ) ) >
  2131.  
  2132. <primitive 112 temp 13        " new " \
  2133.     #( #[ 32 128 0 242 32 49 129 2 242 32 5 100 5 100 129 \
  2134.  3 129 4 242 245] \
  2135.     #( #up 0.0 #direction: #@ #goTo:  ) ) >
  2136.  
  2137. <primitive 98 #Pen \
  2138.     <primitive 97 #Pen #Object #prelude.pen \
  2139.     #(  #x #y #up #direction ) \
  2140.     #( #up #turn: #location #isUp #goTo: #go: #extent:to: #erase #down #direction: #direction #circleRadius: #new  ) \
  2141.     temp 4 8 > >
  2142.  
  2143. temp <- <primitive 110 2 >
  2144. <primitive 112 temp 1        " goTo: " \
  2145.     #( #[ 32 128 0 247 6 32 33 145 1 248 21 242 16 32 128 \
  2146.  2 33 130 3 242 32 128 4 242 32 33 145 1 242 32 \
  2147.  128 5 242 245] \
  2148.     #( #isUp #goTo: #location #add:to: #up #down  ) ) >
  2149.  
  2150. <primitive 112 temp 2        " setForm: " \
  2151.     #( #[ 33 96 245] \
  2152.     #(  ) ) >
  2153.  
  2154. <primitive 98 #PenSave \
  2155.     <primitive 97 #PenSave #Pen #prelude.pen \
  2156.     #(  #saveForm ) \
  2157.     #( #goTo: #setForm:  ) \
  2158.     temp 2 8 > >
  2159.  
  2160. temp <- <primitive 110 3 >
  2161. <primitive 112 temp 1        " with:displayAt: " \
  2162.     #( #[ 34 10 49 115 34 10 50 116 16 225 7 50 39 10 49 \
  2163.  117 39 10 50 118 33 128 0 242 33 37 10 49 35 192 \
  2164.  37 10 50 36 192 129 1 129 2 242 33 128 3 242 33 \
  2165.  38 10 49 35 192 38 10 50 36 192 129 1 129 2 242 \
  2166.  93 243 179 242 245] \
  2167.     #( #up #@ #goTo: #down  ) ) >
  2168.  
  2169. <primitive 112 temp 2        " add:to: " \
  2170.     #( #[ 16 5 53 160 241 33 11 50 242 241 34 11 51 242 189 \
  2171.  242 245] \
  2172.     #(  ) ) >
  2173.  
  2174. <primitive 112 temp 3        " new " \
  2175.     #( #[ 5 32 160 96 245] \
  2176.     #(  ) ) >
  2177.  
  2178. <primitive 98 #Form \
  2179.     <primitive 97 #Form #Object #prelude.pen \
  2180.     #(  #lines ) \
  2181.     #( #with:displayAt: #add:to: #new  ) \
  2182.     temp 8 11 > >
  2183.  
  2184. temp <- <primitive 110 3 >
  2185. <primitive 112 temp 1        " spiral:angle: " \
  2186.     #( #[ 81 33 178 225 3 10 16 35 129 0 241 34 129 1 242 \
  2187.  243 179 242 245] \
  2188.     #( #go: #turn:  ) ) >
  2189.  
  2190. <primitive 112 temp 2        " poly:length: " \
  2191.     #( #[ 33 224 14 16 34 129 0 241 82 128 1 33 190 129 2 \
  2192.  242 243 183 242 245] \
  2193.     #( #go: #pi #turn:  ) ) >
  2194.  
  2195. <primitive 112 temp 3        " withPen: " \
  2196.     #( #[ 33 96 245] \
  2197.     #(  ) ) >
  2198.  
  2199. <primitive 98 #PenShow \
  2200.     <primitive 97 #PenShow #Object #prelude.pen \
  2201.     #(  #bic ) \
  2202.     #( #spiral:angle: #poly:length: #withPen:  ) \
  2203.     temp 4 9 > >
  2204.  
  2205. smalltalk new
  2206.