My cool Pascal code