: swatch>gmt ( beats -- timestamp )
    beats/hour -
    1000 / 86400 * seconds [ gmt midnight ] dip time+ ;

: swatch>local-time ( beats -- timestamp )
    swatch>gmt >local-time ;