|:: print (formatted)? :message: "{%d}" :arguments:|
|:: print (formatted)? :message: "{%d}" :arguments: $n|
    :message: "{}"
    :: collect digits of $n

|:: collect digits of $n :div: 0 :mod: $mod|
    :: add digit to message $mod
|:: collect digits of $n :div: $div :mod: $mod|
    :: add digit to message $mod
    :: collect digits of $div
|:: collect digits of $n?|
    :: divide by 10 :@math: divide $n 10
    :: mod by 10 :@math: modulo $n 10

|:: divide by 10 :@math: $div|
    :div: $div
|:: mod by 10 :@math: $mod|
    :mod: $mod

|:: add digit to message $n :@math: $char|
    :message: $char
|:: add digit to message $n?|
    :@math: add 48 $n


|:: print (formatted)? :message: "{}" :arguments: |
|:: print (formatted)?  :message: "{}"? :arguments: $char|
    :@stdio: write $char
|:: print (formatted)? :message: "\n"|
    :@stdio: write 10
|:: print (formatted)? :message: $char|
    :@stdio: write $char
|:: print (formatted)|