procedure main(A)
    k := A[1] | 21.00
    write("K ",k)
    write("C ",k-273.15)
    write("R ",r := k*(9.0/5.0))
    write("F ",r - 459.67)
end