ToString[] should respect Form

[darvin]

In[77]:= ToString[InputForm[d/2]]

Out[77]= "InputForm[(1/2)*d]"

In[78]:= ToString[FullForm[d/2]]

Out[78]= "FullForm[(1/2)*d]"

Desired behavior

In[192]:= ToString[InputForm[d/2]]                                                               

Out[192]= d/2

In[193]:= ToString[FullForm[d/2]]                                                                

Out[193]= Times[Rational[1, 2], d]