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