marker :: Parser Code
marker = do
    string "("
    subseqCount <- read <$> many1 digit
    string "x"
    times <- read <$> many1 digit
    string ")"
    subseq <- count subseqCount anyChar
    pure $ Repeat times subseq
marker :: Parser Code
marker = do
    string "("
    subseqCount <- read <$> many1 digit
    string "x"
    times <- read <$> many1 digit
    string ")"
    subseq <- count subseqCount anyChar
    pure $ Repeat times subseq
marker = do
    string "("
    subseqCount <- read <$> many1 digit
    string "x"
    times <- read <$> many1 digit
    string ")"
    subseq <- count subseqCount anyChar
    pure $ Repeat times subseq