New Project

blockly.xml

When
    [Case
        (Deposit
            (Role "escrow")
            (Role "buyer")
            (Token "" "")
            (Constant 500)
        )
        (When
            [Case
                (Choice
                    (ChoiceId
                        "jobDone"
                        (Role "seller")
                    )
                    [Bound 0 1]
                )
                (If
                    (ValueEQ
                        (ChoiceValue
                            (ChoiceId
                                "jobDone"
                                (Role "seller")
                            ))
                        (Constant 1)
                    )
                    (Pay
                        (Role "escrow")
                        (Account (Role "seller"))
                        (Token "" "")
                        (Constant 500)
                        Close 
                    )
                    (Pay
                        (Role "escrow")
                        (Party (Role "buyer"))
                        (Token "" "")
                        (Constant 500)
                        Close 
                    )
                )]
            5
            (Pay
                (Role "escrow")
                (Party (Role "buyer"))
                (Token "" "")
                (Constant 500)
                Close 
            )
        )]
    5 Close 

playground.marlowe.json

{}