program from the book "hilegas" Chapter "Blocks"