Controlling default output precision

Hi,

As a result of the following operation, the result is printed 22 instead of 22.5. How can we change this?

set a 180
set b 4
set c 8
set d [expr $a/$b];
set e [expr $a/$c];