cfr(k) = print("Kelvin: $k, ",
  "Celsius: $(round(k-273.15, digits = 2)), ",
  "Fahrenheit: $(round(k*1.8-459.67, digits = 2)), ",
  "Rankine: $(round(k*1.8, digits = 2))")