Multiple Use of Predefined Partial Pictures

\setlength{\unitlength}{.5mm}
\begin{picture}(120, 168)
\newsavebox{\foldera}%           declaration
\savebox{\foldera}(40, 32)[l]{%  definition
  \multiput(0, 0)(0, 28){2}{\line(1, 0){40}}
  \multiput(0, 0)(40, 0){2}{\line(0, 1){28}}
  \put(1, 28){\oval(2, 2)[tl]}
  \put(1, 29){\line(1, 0){5}}
  \put(9, 29){\oval(6, 6)[tl]}  
  \put(9, 32){\line(1, 0){8}}
  \put(17, 29){\oval(6, 6)[tr]}
  \put(20, 29){\line(1, 0){19}}
  \put(39, 28){\oval(2, 2)[tr]}
}
\newsavebox{\folderb}%           declaration      
\savebox{\folderb}(40, 32)[l]{%  definition
  \put(0, 14){\line(1, 0){8}}
  \put(8, 0){\usebox{\foldera}}
}
\multiput(0, 0)(120, 0){2}{\line(0, 1){168}}
\multiput(0, 0)(0, 168){2}{\line(1, 0){120}}
\put(34, 26){\line(0, 1){102}}
\put(14, 128){\usebox{\foldera}}
\multiput(34, 86)(0, -37){3}{\usebox{\folderb}}
\end{picture}