A simple density functional theory program written in Mathematica