sub tell { 
    return tied(${$_[0]})->{CRPOS}; 
}