sub x{s/\w+//;split//,$&}for(<>){@a=x,@b=x;for$i(@a){for$j(@b){s/$/ $i$j/}}s/ //,print}