Lots o' irssi windows

I use irssi for irc, and I have a lot of channels and windows.
As a result, the whole alt+number thing is not quite enough for me.
/script exec foreach my $i (1 .. 2000) { Irssi::command("/alias $i win $i"); }
Running this in irssi adds a bunch of aliases. What they do is make /1 do a /win 1, /2 a /win 2, and so on, all the way to 2000. You can set this number higher or lower as needed, but it makes it a lot easier to navigate around irssi with lots of windows.