gistfile1.txt

// Io
tak := method(x, y, z,
  if(y < x,
    tak(tak(x - 1, y, z), tak(y - 1, z, x), tak(z - 1, x, y))
  ,
    z
  )
)

// Other
set tak, method x, y, z
  if y < x,
    tak tak x - 1, y, z., tak y - 1, z, x., tak z - 1, x, y.
  else
    z