fun hms (x:int) =
let
val a = x div 3600
val b = x mod 3600 div 60
val c = x mod 3600 mod 60
in
(a,b,c)
end ;
Beispiel:

hms 3666
val it = (1,1,6): int*int*int