parser :: Parser Args
parser = Args <$>
  argument str (
    metavar "FILE" <>
    help "The seed"
  ) <*>
  option auto (
    short 'i' <>
    long "interval" <>
    metavar "INT" <>
    help "Interval of iterations in milliseconds" <>
    showDefault <>
    value 20
  ) <*>
  switch (
    long "single-run"
  )
parser :: Parser Args
parser = Args <$>
  argument str (
    metavar "FILE" <>
    help "The seed"
  ) <*>
  option auto (
    short 'i' <>
    long "interval" <>
    metavar "INT" <>
    help "Interval of iterations in milliseconds" <>
    showDefault <>
    value 20
  ) <*>
  switch (
    long "single-run"
  )
parser = Args <$>
  argument str (
    metavar "FILE" <>
    help "The seed"
  ) <*>
  option auto (
    short 'i' <>
    long "interval" <>
    metavar "INT" <>
    help "Interval of iterations in milliseconds" <>
    showDefault <>
    value 20
  ) <*>
  switch (
    long "single-run"
  )