fun KtoC n = n - 273.15;
fun KtoF n = n * 1.8 - 459.67;
fun KtoR n = n * 1.8;
val K = argv 0;

if K = false then
    println "mlite -f temcon.m <temp>"
else
    let
        val K = ston K
    in
        print "Kelvin:     "; println K;
        print "Celcius:    "; println ` KtoC K;
        print "Fahrenheit: "; println ` KtoF K;
        print "Rankine:    "; println ` KtoR K
    end