fun Ġmain () Ġ{ Ċ // sample Start ĊĠĠĠ Ġval Ġnumbers Ġ= ĠlistOf ( 5 , Ġ 2 , Ġ 1 0 , Ġ 4 ) ĊĠĠĠ Ġval Ġsum Double d Right Ġ= Ġnumbers . fold Right ( 0 ) Ġ{ Ġelement , Ġsum Ġ-> Ġsum Ġ+ Ġelement Ġ* Ġ 2 Ġ} ĊĠĠĠ Ġprintln ( sum Double d Right ) Ċ // sample End Ċ }