Cal hr in ebvry s-For t pr,