File:Youngdiag4.png

Created using Wolfram Mathematica 8 with the code:

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