decl double k
while true
    out "Temp. in Kelvin? " console
    set k (in double console)
    out "K\t" k endl "C\t" (- k 273.15) endl console
    out "F\t" (- (* k 1.8) 459.67) endl "R\t" (* k 1.8) endl endl console
end while