pocketberserker · June 29, 2016 10:38
diff --git a/ListReaderBuilder.fs b/ListReaderBuilder.fs
 type ListReaderBuilder() =
  member this.Bind(g, f) = function (x::xs) -> (f (g x)) xs | _ -> ()
  member this.Return(_) = fun _ -> ()
 let listReader = ListReaderBuilder()
 
 let test = listReader {
  do! printfn "%d"
  do! printfn "%d"
 }

 test [1;2;3]
 printfn "---"
 test [4]
diff --git a/output.txt b/output.txt
 1
 2
 ---
 4
	type ListReaderBuilder() =
	member this.Bind(g, f) = function (x::xs) -> (f (g x)) xs \| _ -> ()
	member this.Return(_) = fun _ -> ()
	let listReader = ListReaderBuilder()

	let test = listReader {
	do! printfn "%d"
	do! printfn "%d"
	}

	test [1;2;3]
	printfn "---"
	test [4]