flat←{
digits←⍵∊⎕D
cumSum←+⍀digits
widths←¯2-⌿0⍪cumSum/⍨1,⍨2</digits
maxWidth←⌈/widths
expansionInds←1+0,+\¯1↓widths
extra←maxWidth-widths
expansionAmts←extra@expansionInds⊢0⍴⍨⊃⌽cumSum
expansionVec←(+\∊⍨∘⍳+/)1+expansionAmts
expanded←'0'@{~expansionVec}expansionVec\digits/⍵
expanded⍴⍨←maxWidth,⍨≢extra
≢∪expanded
}