test/text/scopes.shape

   1 ##lookin ..Shapes
   2
   3 a: 1
   4 {
   5   a: 2
   6   {
   7     a: 3
   8     IO..•stdout ≪ `a0 = ´ ≪ a ≪ "{n}
   9     IO..•stdout ≪ `a1 = ´ ≪ ../a ≪ "{n}
  10     IO..•stdout ≪ `a2 = ´ ≪ ../../a ≪ "{n}
  11   }
  12 }
  13
  14 {
  15   odd: \ n → [if n = 0 false [even n-1]]
  16   even: \ n → [if n = 0 true [odd n-1]]
  17   IO..•stdout ≪ `Is 0 odd? --> ´ ≪ [odd 0] ≪ "{n}
  18   IO..•stdout ≪ `Is 4 even? --> ´ ≪ [even 4] ≪ "{n}
  19 }
  20
  21
  22 Graphics..@spot