a simple pascal complier