http://qs321.pair.com?node_id=136740

$|=$_='1g2i1u1l2i4e2n0k',map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g
Update: today i tried this on Win2K: it really sounds more musical under Linux. Somebody can argue why?