WIP

src/hz_format.erl

@@ -485,7 +485,12 @@ segment_jp(Format) ->
             {error, format}
     end.
 
-read_segment(
+read_segment([C | T], R, A) when $0 =< C andalso C =< $9 ->
+    N = C - $0,
+    read_segment(T, R, [NA);
+read_segment([C | T], R, A) when $０ =< C andalso C =< $９ ->
+
+    
 
 assemble_jp({GajuSegments, PuckSegments}) ->
     GajuString = lists:flatten(lists:map(fun expand_jp_myriad/1, GajuSegments)),