Word Puzzle (Spoiler)

[BCS]

Reply to Mike,

 //All 50 states, lowercase, no spaces!!
> static char[][50] states =
> ["alabama","alaska","arizona","arkansas","california","colorado",
> "connecticut","delaware","florida","georgia","hawaii","idaho",
> "illinois","indiana","iowa","kansas","kentucky","louisiana",
> "maine","maryland","massachusetts","michigan","minnesota",
> "mississippi","missouri","montana","nebraska","nevada",
> "newhampshire","newjersey","newmexico","newyork","northcarolina",
> "northdakota","ohio","oklahoma","oregon","pennsylvania","rhodeisland",
> "southcarolina","southdakota","tennessee","texas","utah","vermont",
> "virginia","washington","westvirginia","wisconsin","wyoming"];
> void main()
> {
> char[][char[]] pairs;
> for(int i = 0; i < states.length; i++)
> {
> for(int j = i; j < states.length; j++)
> {
> if( (states[i] ~ states[j]).sort in pairs)
> Stdout(states[i])(" ")(states[j])(" -> ")
> (pairs[(states[i] ~ states[j]).sort]).newline;
> pairs[(states[i] ~ states[j]).sort] = states[i] ~" "~states[j];
> }
> }
> }

Bravo!!!