LISP to offset polyline an increasing distance

Hi All,
Does anyone have a LISP that will offset a polyline by an incementally increasing distance from beginning to the end?
example input would be something like:
Select polyline
Offset side
Enter beginning offset
Enter ending offset

Each vertex is then offset an incrementally increasing distance equalling (end distance - beginning distance) /total polyline length.

Thanks in advance.