https://rosettacode.org/wiki/99_bottles_of_beer

The smalltalk example does not follow the form.

The lyrics follow this form:

99 bottles of beer on the wall

99 bottles of beer

Take one down, pass it around

98 bottles of beer on the wall

98 bottles of beer on the wall

98 bottles of beer

Take one down, pass it around

97 bottles of beer on the wall

To run it on squeak, I modify it a bit.

Transcript clear.

Smalltalk at: #sr put: 0 ; at: #s put: 0 .

sr := Dictionary new.

sr at: 0 put: ' bottle' ;

at: 1 put: ' bottles' ;

at: 2 put: ' of beer' ;

at: 3 put: ' on the wall' ;

at: 4 put: 'Take one down, pass it around' .

99 to: 0 by: -1 do: [:v | Transcript show: v .

( v == 1 ) ifTrue: [ s := 0. ]

ifFalse: [ s := 1. ].

Transcript show: (sr at:s) ; show: (sr at:2) ; show: (sr at:3) ; cr.

Transcript show: v.

Transcript show: (sr at:s) ; show: (sr at:2) ; cr.

(v ~~ 0) ifTrue: [ Transcript show: (sr at:4) ; cr. ].

].

But the output does not match the presented form.

99 bottles of beer on the wall

99 bottles of beer

Take one down, pass it around

98 bottles of beer on the wall

98 bottles of beer

Take one down, pass it around

97 bottles of beer on the wall

97 bottles of beer

Take one down, pass it around

Specifically, the '98 bottles of beer on the wall should repeat with a CR between the two'

I am thinking replacing the sr Dictionary with a Tuple....to include the second iteration of Bottles of Beer on the wall with the CR between them.

Or, maybe the string replacement thing  we have where we can put in '{1}' paramaters embedded in the string.

Cordially,