:)

roel wuyts sent me that nice snippet :)

| wishStream adjectives |
wishStream := WriteStream with: 'For 2011 I wish you '.
adjectives := { 'fun' . 'exotic' . 'brilliant' . 'extraordinary' }.
{ 'research' . 'students' . 'artefacts' . 'conferences'}
        do: [:e |
                wishStream nextPutAll: adjectives atRandom;
                space;
                nextPutAll: e]
        separatedBy: [wishStream nextPutAll: ', '].
wishStream nextPutAll: ' and of course good health!'.
^wishStream contents