GRANITO

Imago = Function[{public, movie, music},
&emsp If[publico == {}, Print[fail],
  &emsp If[filme == Good, Print[very nice],
      If[musica == no words, Print[again?],
      &emsp If[musica == canceled, Print[again!];
        ]
        While[ party < nice,
          Print[boring];
          party := movie + music;
        ]
      ]
    ]
&emsp ]
];