\newtoks\foo \newtoks\bar

\def\aster{*}
\def\reverse#1*{\foo={} \def\stuff{#1 } \expandafter\xreverse\stuff * \the\foo}
\def\xreverse#1 {\def\word{#1}%
  \ifx\word\aster \let\next=\relax
  \else \Prepend{\wordrev{#1}}(to:)\foo \let\next=\xreverse \fi \next}

\def\wordrev#1{\bar={} \xwrev#1\end \the\bar}
\def\xwrev#1{\ifx#1\end \let\next=\relax
  \else \Prepend#1(to:)\bar \let\next=\xwrev\fi \next}