-- Breite eines Bildes
width :: Picture -> Int
width x 
      | null x    = 0
      | otherwise = length (x!!0)

-- Höhe eines Bildes
height :: Picture -> Int
height = length

-- Ein Bild darstellen
printPicture :: Picture -> IO ()
printPicture = putStr . concat . map (++"\n")