-- zwei Bilder übereinander positionieren und konkatenieren
above :: Picture -> Picture -> Picture
above = (++)

-- zwei Bilder nebeneinander positionieren und zu einem neuen zusammenfügen
sideBySide :: Picture -> Picture -> Picture
sideBySide picL picR 
  = [ lineL ++ lineR | (lineL,lineR) <- zip picL picR ]
oder
sideBySide = zipWith (++)