PASCAL

Talk is cheap, show me the code