RosettaCodeData/Task/Temperature-conversion/Aime/temperature-conversion.aime

void
show(integer symbol, real temperature)
{
    o_form("%c /d2p2w8/\n", symbol, temperature);
}

integer
main(void)
{
    real k;

    k = atof(argv(1));

    show('K', k);
    show('C', k - 273.15);
    show('F', k * 1.8 - 459.67);
    show('R', k * 1.8);

    return 0;
}