ligo/src/test/contracts/michelson_insertion.mligo

// Test michelson insertion in CameLIGO

let michelson_add (n : nat * nat) : nat =
  [%Michelson ({| UNPAIR;ADD |} : nat * nat -> nat) ] n
parser and test 2020-04-15 17:15:55 +02:00			`// Test michelson insertion in CameLIGO`

test passing 2020-04-18 17:02:48 +02:00			`let michelson_add (n : nat * nat) : nat =`
			`[%Michelson ({\| UNPAIR;ADD \|} : nat * nat -> nat) ] n`