File:Youngdiag1-1.png

Created using Wolfram Mathematica 8 with the following code:

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