A simple compiler of pascal