main :: IO ()
main = do
  args <- getArgs
  if length args < 5 then
    putStrLn help
  else
    (let (angles, iter, str, cmap, exmap) = argParse args in
      initDisplay angles iter str cmap exmap)
  return ()
main :: IO ()
main = do
  args <- getArgs
  if length args < 5 then
    putStrLn help
  else
    (let (angles, iter, str, cmap, exmap) = argParse args in
      initDisplay angles iter str cmap exmap)
  return ()
main = do
  args <- getArgs
  if length args < 5 then
    putStrLn help
  else
    (let (angles, iter, str, cmap, exmap) = argParse args in
      initDisplay angles iter str cmap exmap)
  return ()