 
 : write-iso8601 ( timestamp -- )
     {
-        YYYY "-" MM "-" DD "T" hh ":" mm ":" ss.SSSSSS
+        YYYY-MM-DD "T" hh:mm:ss.SSSSSS
         [ gmt-offset>> write-gmt-offset-hh:mm ]
     } formatted ;
 

    [ duration>minutes >integer 60 mod pad-00 ] bi ":" glue ;

: duration>hms ( duration -- str )
    [ duration>hm ] [ second>> >integer 60 mod pad-00 ] bi ":" glue ;

: duration>human-readable ( duration -- string )
    [


: write-rfc2822 ( timestamp -- )
    {
        DAY ", " D " " MONTH " " YYYY " " hh:mm:ss " "
        [ gmt-offset>> write-gmt-offset ]
    } formatted ;

