payasa: gracia

| dev i |
(gracia<1)
ifTrue:[ dev := '-_-'. ]
ifFalse:
[
dev := String new: (gracia+1).
dev at: 1 put: $x.
i := 2.
[i<(gracia+2)] whileTrue:
[
dev at: i put: $D.
i := i+1.
].
].
^dev.

¿Gusta más en Smalltalk (aka "CascaPoco")?