(bind-func print
"specialised print function for HistBin*"
(lambda (histbin:HistBin*)
(if (null? histbin)
(printf "<HistBin 0x0>")
(printf "<HistBin %p minval=%f count=%f>"
histbin
(convert (tref histbin 0) double)
(convert (tref histbin 1) double)))
void))