Section Header
    + name :=Expanded TIME;
    - comment := "Time";
    - type := `unsigned long`;
    - default := `0`:TIME;
Section Insert
    - parent_object:OBJECT :=
Section Public
    - hour:UINTEGER_8 <-
    - minute:UINTEGER_8 <-
    - second:UINTEGER_8 <-
    - csecond:UINTEGER_8 <-
Section Public
    - '>' Right 60 other:SELF :BOOLEAN <-
    - '<' Right 60 other:SELF :BOOLEAN <-
    - '>=' Right 60 other:SELF :BOOLEAN <-
    - '<=' Right 60 other:SELF :BOOLEAN <-
    - to_csecond:INTEGER <-
    - '-' Right 60 other:SELF :SELF <-
BSBS: A uniformiser -# +# ???
    - '-#' Right 60 other:SELF :INTEGER <-
    - '+#' Right 60 other:INTEGER :TIME <-
    - create (h,m,s,cs:INTEGER) :TIME <-
    - create_csecond csec:INTEGER :SELF <-
    - to_string:STRING <-
    - append_in str:STRING <-
    - append_short_in str:STRING <-
    - update <-
    - print <-