package Ġcalculation Ċ Ċ // ĠCalcul ation Ġtype Ċ // Ġsucceeds Ġwith Ġan ĠInt Ġresult Ċ // Ġfails Ġwith Ġa ĠString Ġmessage Ġresult Ċ Ċ sealed Ġclass Ġcalculation Ċ data Ġclass Ġsuccess ( val Ġresult : ĠInt ): Ġcalculation () Ċ data Ġclass Ġfailure ( val Ġresult : ĠString ): Ġcalculation () Ċ Ċ // fun Ġmain ( args : ĠArray < String >) Ġ{ Ċ // Ċ //} Ċ Ċ // ĠTraffic Ġlight Ġis Ġred , Ġgreen Ġor Ġam ber Ċ Ċ sealed Ġclass Ġtraffic Light Ġ( val Ġcolor : ĠString ) Ċ object Ġred : Ġtraffic Light (" red ") Ċ object Ġgreen : Ġtraffic Light (" green ") Ċ object Ġam ber : Ġtraffic Light (" amber ") Ċ Ċ fun Ġmain ( args : ĠArray < String >) Ġ{ ĊĠĠĠ Ġval Ġis Red Ġ: Ġtraffic Light Ġ= Ġred ĊĊĠĠĠ Ġprintln (" The Ġtraffic Ġlight Ġis : Ġ" Ġ+ Ġis Red . color ) Ċ }