\ corai.fs - Cora Phyco with integer math

: s>hr ( i -- ) 3600 / ;
: s>day ( i -- )