modula2 source #1