Binary Clock - SNOBOL4

I didn't want to have something ordinary as the first post. So we do SNOBOL4. Other implementations of this algorithm can be found on the Snobol4 Wiki. define('divide(n,d)div,mod,x') :(divide_end) divide div = n / d mod = n - ( div * d ) divide = div " " mod :(return) divide_end define('binary(n)result,bin,mod') :(binary_end) binary result = divide( n, 2 ) result ? " " rem . mod bin = mod "" bin result ? break( " " ) . n differ(n,"0") :f(binary_done)s(binary) binary_done binary = bin :(return) binary_end define('format(n)') :(format_end) format format = replace( lpad( binary( n ), 4, '0' ), + "01", ".#" ) "|" :(return) format_end date() ? " " len( 1 ) . h1 len( 1 ) . h2 ":" len( 1 ) . h3 len( 1 ) . h4 output = format( h1 ) output = format( h2 ) output = format( h3 ) output = format( h4 ) end