i have 6.17
prob is :
putco $calc $x $y $getco(%x,%y) | putco %x %y 0.0
here is an extra \"$calc\"
:]