Printf more nonces
::
:: tlon galaxy booting
::
- ~& 'Booting Tlon galaxies...'
+ ~& ['Booting Tlon galaxies...' +(nonce)]
=/ galaxies (sort tlon-gal order-shiplist)
|-
?^ galaxies
::
:: direct deeding
::
- ~& 'Directly deeding assets...'
+ ~& ['Directly deeding assets...' +(nonce)]
=/ stars (sort ~(tap by star-map) order-shiplist)
|-
?^ stars
::
:: linear release registration and deeding
::
- ~& 'Registering linear release recipients...'
+ ~& ['Registering linear release recipients...' +(nonce)]
|-
?^ lin-rec
=. this
(register-linear:dat i.lin-rec)
$(lin-rec t.lin-rec)
::
- ~& 'Depositing linear release galaxies...'
+ ~& ['Depositing linear release galaxies...' +(nonce)]
=. this
(deposit-galaxies linear-star-release lin-gal)
::
- ~& 'Depositing linear release stars...'
+ ~& ['Depositing linear release stars...' +(nonce)]
=. this
(deposit-stars linear-star-release lin-sar)
::
:: conditional release registration and deeding
::
- ~& 'Registering conditional release recipients...'
+ ~& ['Registering conditional release recipients...' +(nonce)]
|-
?^ con-rec
=. this
(register-conditional:dat i.con-rec)
$(con-rec t.con-rec)
::
- ~& 'Depositing conditional release galaxies...'
+ ~& ['Depositing conditional release galaxies...' +(nonce)]
=. this
(deposit-galaxies conditional-star-release con-gal)
::
- ~& 'Depositing conditional release stars...'
+ ~& ['Depositing conditional release stars...' +(nonce)]
=. this
(deposit-stars conditional-star-release con-sar)
::
:: tlon galaxy sending
::
- ~& 'Sending Tlon galaxies...'
+ ~& ['Sending Tlon galaxies...' +(nonce)]
=/ galaxies (sort tlon-gal order-shiplist)
|-
?^ galaxies
