jacinda-3.0.0.0: examples/sedstream.jac

{. https://www.gnu.org/software/sed/manual/sed.html#Joining-lines
@include'prelude/fn.jac'

fn go(acc, line) :=
  let
    val accStr := fromMaybe '' (acc->1)
  in
    option (None . Some (accStr+line)) [(Some (accStr+x) . None)] (line ~* 1 /([^\\]*)\\/)
  end;

[x->2]:?(go^(None.None) $0)