type Row = [Char]
type Picture = [Row]

white = '.'
black = '#'