(bind-func print (lambda (a:cpVect) (printf "<cpVect: x=%.3lf, y=%.3lf>" (tref a 0) (tref a 1)) void))