File:Youngdiag1-1-1-1.png

Created using Wolfram Mathematica 8 with the code:

Graphics[{Line[{{0, 0}, {0, -4}, {1, -4}, {1, 0}, {0, 0}}], Line[{{0, -1}, {1, -1}}], Line[{{0, -2}, {1, -2}}], Line[{{0, -3}, {1, -3}}]}]