(
  ((float) (273.15 -) (9 5 / * 459.67 -) (9 5 / *)) cleave
  () 'cons 4 times "K  $1\nC  $2\nF  $3\nR  $4" swap % puts!
) :convert

21 convert