             [ ]
         } spread
     ] input<sequence raw-link boa ;
-
-: raw-leap>leap ( raw-leap -- leap )
-    ;
 
 : parse-leap ( seq -- link )
     [

        { "max" [ 1/0. ] }
        [ string>number ]
    } case ;

: raw-rule>rule ( raw-rule -- rule )
    ;

: parse-rule ( seq -- rule )
    [

: parse-line ( seq -- tuple )
    dup first >lower
    {
        { "zone" [ parse-zone dup last-zone set ] }
        { "rule" [ parse-rule ] }
        { "link" [ parse-link ] }
        { "leap" [ parse-leap ] }
        [ drop harvest parse-partial-zone ]
    } case ;

