Edit: I misunderstood the intent, on my first try.
Here's oneFindSequenceFunction and FindGeneratingFunction will attempt: to identify how the list was produced.
FindSequenceFunction[{1, 1, 2, 3, 5, 8, 13, 21, 34, 55}, n]
Fibonacci[n]
FindSequenceFunction[{0, 1, 1, 2, 3, 5, 8, 13}, n]
FindGeneratingFunction[{0, 0, 1, 2, 3, 5, 8, 13}, n]
My first interpretation:
You may wish to compare these:
Sum[i, {i, 0, n}]
SpokenString[Sum[i, {i, 0, n}]]
SpokenString[Unevaluated[Sum[i, {i, 0, n}]]]
"1 half times n times the quantity 1 plus n"
"the sum of i over i from 0 to n"
Speak[Sum[i, {i, 0, n}]]
Speak[Unevaluated[Sum[i, {i, 0, n}]]]
Most commands, including graphics functions, should work
g= Graphics[{Thick, Green, Rectangle[{0, -1}, {2, 1}], Red, Disk[], Blue,
Circle[{2, 0}], Yellow, Polygon[{{2, 0}, {4, 1}, {4, -1}}], Purple,
Arrowheads[Large], Arrow[{{4, 3/2}, {0, 3/2}, {0, 0}}], Black,
Dashed, Line[{{-1, 0}, {4, 0}}]}]
SpokenString[g]
"a graphic consisting of a rectangle, a disk, a circle, a polygon with 3 vertices, an arrow and a line connecting 2 points" with these
Of course, the description is somewhat unclear:
WolframAlpha[%]
