used ptop (from fp-utils) to clean pascal source