object Via main

Instantiate to task

  set Plus task given l, r
    return l + r

  set ReverseSort task given l, r
    return (l concat r) by desc

  set Concat task given l, r
    return l concat r

  debug 1 via Plus 2
  
  debug @@isa
    
    
    
    
    
  set fruit list apple, banana, citron, durian
  debug fruit via ReverseSort
  debug fruit via Concat list owl, asp, tarantula; by asc
  
  set Replicate task given l, repeat
    local result empty
    count repeat
      set result[counter] l
    return from result.join ''
  
  set a "Hip"
  debug a via Replicate 2; + "Hurrah"
  
  set MySort task given subject, rules
    if rules.order is 1
      set result subject by asc
    else
      set result subject by desc
    exists rules.count 
      set result self limit it
    return result
    
  debug fruit via MySort: order 1
  debug fruit via MySort: order -1, count 2

  debug from MySort fruit, fields order -1, count 2
  debug MySort(fruit, fields order -1, count 2)
  debug fruit via MySort: order -1, count 2

  set ShowParameters task
    return $$
    
  debug 1 via ShowParameters 2,3,4
  debug 1 via ShowParameters: b 2, c 3, d 4