tcl_scorefun function

Computation of score function.