works for algol60 and pascal