% $Id: ListToVS.oz,v 1.2 2009/01/10 18:32:17 leavens Exp $ % AUTHOR: Gary T. Leavens declare fun {ListToVS LoStr} %% ENSURES: Result is a virtual string corresponding %% to the list of strings LoStr {FoldR LoStr fun {$ S VSforRest} S # VSforRest end ""} end