let d_of s = s.d