startshape test
CF::MinimumSize = 15
shape foo(number sz)
{
  SQUARE [r 0..90 s sz]
}

shape curve(adjustment change, shape thingie)
{
  thingie[]  // invoke thingie with parameters already bound
  curve(=) [transform change]
}

shape test {
  curve([[y 0.5 s 0.97 r 3 y 0.5]], foo(0.5)) [] // bind 0.5 to sz here
}
