main :: NodeId -> Process () 
main n =
  do p       <- getSelfPid
     q       <- spawn n $ $(mkBriskClosure 'child) p
     let myBigRecord = Foo 3 p
     Ping q  <- expect
     flip send (b myBigRecord) q
     msg <- expect
     send (b msg) ()
     return ()
main :: NodeId -> Process ()
main n =
  do p       <- getSelfPid
     q       <- spawn n $ $(mkBriskClosure 'child) p
     let myBigRecord = Foo 3 p
     Ping q  <- expect
     flip send (b myBigRecord) q
     msg <- expect
     send (b msg) ()
     return ()
main n =
  do p       <- getSelfPid
     q       <- spawn n $ $(mkBriskClosure 'child) p
     let myBigRecord = Foo 3 p
     Ping q  <- expect
     flip send (b myBigRecord) q
     msg <- expect
     send (b msg) ()
     return ()