Generalized Unpickler

fun {ReadString S Accu Stack}
   case S
   of    &"|S then {FromString S {Reverse Accu}|Stack}
   [] &\\|C|S then {ReadString S C|Accu Stack}
   []     C|S then {ReadString S C|Accu Stack}
   end
end