package Ġarrow . core Ċ Ċ import Ġarrow . type classes . Mon oid Ċ import Ġarrow . type classes . Sem ig roup Ċ Ċ private Ġobject ĠString Sem ig roup Ġ: ĠSem ig roup < String > Ġ{ ĊĠ Ġoverride Ġfun ĠString . combine ( b : ĠString ): ĠString Ġ= Ġ"${ this }$ b " Ċ } Ċ Ċ fun ĠSem ig roup . Companion . string (): ĠSem ig roup < String > Ġ= ĊĠ ĠString Sem ig roup Ċ Ċ private Ġobject ĠString Mon oid Ġ: ĠMon oid < String > Ġ{ ĊĠ Ġoverride Ġfun ĠString . combine ( b : ĠString ): ĠString Ġ= Ġ"${ this }$ b " ĊĠ Ġoverride Ġfun Ġempty (): ĠString Ġ= Ġ"" Ċ } Ċ Ċ fun ĠMon oid . Companion . string (): ĠMon oid < String > Ġ= ĊĠ ĠString Mon oid Ċ Ċ fun ĠString . escaped (): ĠString Ġ= ĊĠ Ġreplace ("\ n ", Ġ"\\ n "). replace ("\ r ", Ġ"\\ r ") ĊĠĠĠ Ġ. replace (" \"", Ġ"\\ \"" ). replace ("\ '", Ġ"\\ \' ") ĊĠĠĠ Ġ. replace ("\ t ", Ġ"\\ t "). replace ("\ b ", Ġ"\\ b ") Ċ