 
 MEMO: zoneinfo-array ( -- seq )
     zoneinfo-files concat ;
-
 
 : raw-rule-map ( -- assoc )
     zoneinfo-array [ raw-rule? ] filter [ name>> ] collect-by ;


TUPLE: zone name ;
TUPLE: rule name from to at-time ;
TUPLE: link ;
TUPLE: leap ;

: rule-to ( m string -- m n )
    {

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

: parse-link ( seq -- link )
    [
        {
