package Ġtest Ċ Ċ object ĠContentType By Extension Ġ{ ĊĠĠĠ Ġinline Ġfun Ġprocess Records ( cross inline Ġoperation : Ġ( String ) Ġ-> ĠString ) Ġ= ĊĠĠĠĠĠĠĠĠĠĠĠ ĠlistOf (" O ", Ġ" K "). map Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġext Ġ= ĠB ( it ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġoperation ( ext . toLowerCase ()) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ}. join ToString ("") Ċ } ĊĊĊĊ Ċ inline Ġfun ĠA . toLowerCase (): ĠString Ġ= Ġ( this Ġas ĠB ). value Ċ Ċ open Ġclass ĠA Ċ Ċ open Ġclass ĠB ( val Ġvalue : ĠString ) Ġ: ĠA ()