\ -----------------------------------------------------------------------
\ 5-4.FORTH -------------------------------------------------------------
\ -----------------------------------------------------------------------
\ Code from Starting Forth Chapter 5
\ ANSized by Benjamin Hoyt in 1997

( problem 5-4 )
: F>C  ( fahr -- cels )  32 -  10 18 */ ;
: C>F  ( cels -- fahr )  18 10 */  32 + ;
: C>K  ( cels -- kelv )  273 + ;
: K>C  ( kelv -- cels )  273 - ;
: F>K  ( fahr -- kelv )  F>C C>K ;
: K>F  ( kelv -- fahr )  K>C C>F ;