data N = Z | S N fold :: -- 1 P fold = -- 1 P
plus x y = fold y S x
mal x y = ...
(Bearbeiten Sie dazu die autotool-Aufgaben!)