I am looking for a way to compress a lengthy `DSolve` solution to a single symbol, kind of like assigning a variable. I have this expression:

```
Simplify[DSolve[q''[t] + q'[t] + q[t] == Sin[t], q'[0] == 0, q[0] == 0}, q[t], t]]

```

which when solved results in a long-expression. If I, for example, assign s=the previous expression, and then try to plot s, it just gives me a blank graph, hence, a simple symbol=dsolveexpression, seems to not work, and makes the document very messy. Is there any way to go around that?