(while(let*((s(read-line))'(.$ x->number(pa$ ~(string-split s #/\D/)))(n(+(*(+(*(+'0'3)60)'1'4)60)'2'5)))(format #t"~a=~2,'0d:~2,'0d:~2,'0d "s(mod(div n 3600)24)(mod(div n 60)60)(mod n 60))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).