Fiat token transfer

metadata.json

{"valueParameterInfo":[],"timeParameterDescriptions":[],"roleDescriptions":[],"contractType":"Other","contractShortDescription":"Unknown","contractName":"Unknown","contractLongDescription":"We couldn't find information about this contract","choiceInfo":[]}

playground.marlowe

When
    [Case
        (Deposit
            (Role "A")
            (Role "A")
            (Token "" "SHARE")
            (Constant 10)
        )
        (When
            [Case
                (Choice
                    (ChoiceId
                        "B_PAID"
                        (Role "A")
                    )
                    [Bound 0 0]
                )
                (Pay
                    (Role "A")
                    (Party (Role "B"))
                    (Token "" "SHARE")
                    (Constant 10)
                    Close 
                )]
            (TimeParam "timeout 1 (payment)")
            (When
                [Case
                    (Choice
                        (ChoiceId
                            "ARBITRATION"
                            (Role "DAO")
                        )
                        [Bound 0 1]
                    )
                    (If
                        (ValueEQ
                            (ChoiceValue
                                (ChoiceId
                                    "ARBITRATION"
                                    (Role "DAO")
                                ))
                            (Constant 1)
                        )
                        (Pay
                            (Role "A")
                            (Party (Role "B"))
                            (Token "" "SHARE")
                            (Constant 10)
                            Close 
                        )
                        Close 
                    )]
                (TimeParam "timeout 2 (overall)")
                Close 
            )
        )]
    (TimeParam "timeout 2 (overall)")
    Close 

playground.marlowe.json

{}