[Initial. About to fix kinding.
Sean Seefried <sseefried@cse.unsw.edu.au>**20060216062938] 
[Kinding has been fixed. 
Sean Seefried <sseefried@cse.unsw.edu.au>**20060216095339] 
[Ready for posting.
Sean Seefried <sseefried@cse.unsw.edu.au>**20060217020523] 
[Added copyright info
Sean Seefried <sseefried@cse.unsw.edu.au>**20060217022843] 
[Fixed module name
Sean Seefried <sseefried@cse.unsw.edu.au>**20060217022909] 
[Fixed some comments
Sean Seefried <sseefried@cse.unsw.edu.au>**20060217034521] 
[Fixed some glaring bugs in the code. Thanks to Daniel Fischer.
Sean Seefried <sseefried@cse.unsw.edu.au>**20060222005458]