-- zwei Bilder überlagern
superimpose :: Picture -> Picture -> Picture
superimpose = zipWith (zipWith superimposeChar)

-- zwei Zeichen addieren
superimposeChar :: Char -> Char -> Char
superimposeChar '.' '.' = '.'
superimposeChar  _   _  = '#'

-- Zwei Bilder überlagern
superimposePic :: Picture -> Picture -> Picture 
superimposePic = zipWith superimposeLine


-- Zwei Zeilen überlagern
superimposeLine :: Row -> Row -> Row
superimposeLine = zipWith superimposeChar