PlayWithMarlowe

blockly.xml

When
    [Case
        (Deposit
            (Role "Alice")
            (Role "Alice")
            (Token "" "")
            (Constant 10)
        )
        (When
            [Case
                (Deposit
                    (Role "Bob")
                    (Role "Bob")
                    (Token "" "")
                    (Constant 10)
                )
                (When
                    [Case
                        (Choice
                            (ChoiceId
                                "Winner"
                                (Role "Charles")
                            )
                            [Bound 1 2]
                        )
                        (If
                            (ValueEQ
                                (ChoiceValue
                                    (ChoiceId
                                        "Winner"
                                        (Role "Charles")
                                    ))
                                (Constant 1)
                            )
                            (Pay
                                (Role "Bob")
                                (Account (Role "Alice"))
                                (Token "" "")
                                (Constant 10)
                                Close 
                            )
                            (Pay
                                (Role "Alice")
                                (Account (Role "Bob"))
                                (Token "" "")
                                (Constant 10)
                                Close 
                            )
                        )]
                    25 Close 
                )]
            15 Close 
        )]
    5 Close 

metadata.json

{"valueParameterDescriptions":[],"slotParameterDescriptions":[],"roleDescriptions":[],"contractType":"O","contractName":"","contractDescription":"","choiceDescriptions":[]}

playground.marlowe.json

{}