/* REXX */
tv = ""
arg secs . "(("  opts
opts = Strip( opts , "T" , ")" )
parse var opts "TRACE" tv .
if tv ^= "" then rc = trace(tv)
hour   =  secs %  3600
secs   =  secs // 3600
min    =  secs %  60
sec    =  secs // 60
say  Right(hour,2)":"Right(min,2,0)":"Right(sec,2,0)
exit