parameter (pair (bool @first) (bool @second)); return bool; storage unit; code { CAR @param; DUP; CAR @first; DIP{CDR @second}; AND; UNIT; SWAP; PAIR };