#* http://home.pipeline.com/~hbaker1/TakB.html
  The Tak benchmark
*#

tak = { x, y, z | 
  true? y < x, 
    { tak tak(x - 1, y, z), tak(y - 1, z, x), tak(z - 1, x, y) },
    { z }
}

#10 is a good number
10.times {
  tak 18, 12, 6
}