galton(row) := block(
k : 0,
print("Anzahl der Ebenen: ", row),
array (col, fixnum, row),
for i : 1 thru row do (
    k : k + random(2),
    ),
k = k + 1,
);