[easy] calculate distance - tcl