From 5a145207daf7fdabe3058b979d0f11038d1e4068 Mon Sep 17 00:00:00 2001
From: Craig Everett <zxq9@zxq9.com>
Date: Thu, 11 Dec 2025 17:13:02 +0900
Subject: [PATCH] WIP

---
 src/hz_format.erl | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/src/hz_format.erl b/src/hz_format.erl
index 03bd2d3..94c8d86 100644
--- a/src/hz_format.erl
+++ b/src/hz_format.erl
@@ -34,12 +34,12 @@ price(Style, Pucks) ->
 
 
 -spec price(Unit, Style, Pucks) -> Formatted
-    when Unit       :: gaju | puck,
-         Style      :: us | ch | jp | {Separator, Myriad},
-         Separator  :: $, | $. | $_,
-         Myriad     :: 3 | 4,
-         Pucks      :: integer(),
-         Formatted  :: string().
+    when Unit      :: gaju | puck,
+         Style     :: us | ch | jp | {Separator, Myriad},
+         Separator :: $, | $. | $_,
+         Myriad    :: 3 | 4,
+         Pucks     :: integer(),
+         Formatted :: string().
 %% @doc
 %% A simplified format function covering the most common formats desired.
 
@@ -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)),