(bind-func print (lambda (a:cpBB) (printf "<cpBB: l=%.3lf, b=%.3lf, r=%.3lf, t=%.3lf>" (tref a 0) (tref a 1) (tref a 2) (tref a 3)) void))