alias test {
set %1 4,15| ♦ |
set %2 4,15| ♥ |
set %3 1,15| ♠ |
set %4 1,15| ♣ |
set %i 0
:go
while (%i <= 3) {
set %a $rand(1,4) | set %b $rand(1,4) | set %c $rand(1,4) | set %d $rand(1,4)
msg # test: $+(%,%a)
inc %i
goto go
}
}