\documentclass{ppex}
\nonstopmode
\usepackage {graphics,rawfonts,pictex}
\pagestyle{empty}

\begin{document}
\ResetPreambleCommands
\ReadyForTheFray
\usepackage {graphics,rawfonts,pictex}
\beginpicture
\setcoordinatesystem units <10pt,.03pt>
\setplotarea x from -1 to 24, y from 0 to 4500
\axis left label
\rotatebox{90}{Number of Coins ($\surd$)} ticks
numbered from 0 to 4500 by 500 /
\shaderectangleson
\setbars breadth <15pt> baseline at y = 0
baselabels ([tl] <2.5pt,-5pt>)
\plot "coins.dat"
\endpicture
\end{document}