testIO :: IO Pixbuf -> Pixbuf
testIO pixbufio = do
  pixbuf <- pixbufio
  return . pixbuf