     ] keep zip ;
 
 : chicago-zones ( -- interval-map ) "America/Chicago" name>zones ;
- : us-rules ( -- rules ) "US" name>rules ;
+: us-rules ( -- rules ) "US" name>rules ;


: zone-abbrevs ( -- assoc )
    zoneinfo-zones [
        find-zone-rules [ format>> ] dip
        [
            letters>> swap "%" split1 dup [ 1 tail ] when surround
        ] with V{ } map-as
    ] zip-with ;

: number>value ( n -- n' )

        [ 3 tail harvest ]
    } cleave raw-zone boa ;

: parse-zoneinfo-line ( seq -- tuple )
    dup first >lower
    {
        { "rule" [ parse-rule ] }
