A Quantum Computer Simulator in Scheme