declaration :: Parser Declaration
declaration = (,,) <$> h <*> s <*> v where
    h = bullshit *> name
    s = spaces *> limit <* spaces <* char ':' <* spaces <* bullshit
    v = try (Data <$> (tdata <* bullshit)) <|> (Code <$> many (instruction <* bullshit)) <?> "a value"
declaration :: Parser Declaration
declaration = (,,) <$> h <*> s <*> v where
    h = bullshit *> name
    s = spaces *> limit <* spaces <* char ':' <* spaces <* bullshit
    v = try (Data <$> (tdata <* bullshit)) <|> (Code <$> many (instruction <* bullshit)) <?> "a value"
declaration = (,,) <$> h <*> s <*> v where
    h = bullshit *> name
    s = spaces *> limit <* spaces <* char ':' <* spaces <* bullshit
    v = try (Data <$> (tdata <* bullshit)) <|> (Code <$> many (instruction <* bullshit)) <?> "a value"