/*
 * Created by PyramIDE.
 * User: フランスのトトロ aka (David RENÉ) 
 * Date: 12/07/2017
 * Time: 21:53
 * © Calexium 
 */

read system/string.anubis

public define String
  folding
  (
    List($T)      mails_list,
    $T -> String  to_str,
  )=
    if mails_list is
    {
      [] then "",
      [h . t] then 
        if t is
        {
          [] then " " + to_str(h),
          [h1 . t1] then " " + to_str(h) + "," + crlf + folding(t, to_str)
        }
    }
  .