HashCountingString←{⍵=1:'#' ⋄ ⍵=0:'' ⋄ hcs←('#',⍨⍕⍵) ⋄ hcs,⍨∇ ⍵-≢hcs}