Impure Pics - Shared state in fp

example.kt

fun add1(myState: Ref<ForIO, List<String>>): IO<Unit> =
  IO.sleep(5.seconds).followedBy(myState.update { it + listOf("#1") })

fun add2(myState: Ref<ForIO, List<String>>): IO<Unit> =
  IO.sleep(3.seconds).followedBy(myState.update { it + listOf("#2") })

fun read(myState: Ref<ForIO, List<String>>): IO<Unit> =
  myState.get().effectMap { state -> println("$state") }

suspend fun main(): Unit = IO.fx {
  val myState = !Ref(emptyList<String>())
  !listOf(add1(myState), add2(myState)).parSequence()
  !read(myState)
}.suspended()