package Ġcom . ok bre at he . qu asar . util Ċ Ċ fun Ġtitle ize ( str : ĠString ): ĠString Ġ= ĊĠ Ġstr . split (" Ġ"). map Ġ{ Ġs Ġ-> Ġs [ 0 ]. toUpperCase () Ġ+ Ġs . substring ( 1 ). toLowerCase () Ġ}. join ToString (" Ġ") Ċ Ċ fun Ġtruncate ( str : ĠString ?, Ġlength : ĠInt Ġ= Ġ 5 0 , Ġseparator : ĠChar Ġ= Ġ' Ġ', Ġmore : ĠString Ġ= Ġ"... "): ĠString Ġ= ĊĠ Ġstr ?. let Ġ{ ĊĠĠĠ Ġif Ġ( str . length Ġ< Ġlength ) Ġstr Ġelse Ġstr . slice ( 0 .. length + more . length ). drop Last While Ġ{ Ġit Ġ!= Ġseparator Ġ Ġ} ĊĠ Ġ} Ġ+ Ġmore Ġ?: Ġ""