Movies as code

procedure Travis (You_Talkin_To_Me : Boolean) is
begin
   Put_Line ("You talkin' to me?");

   if You_Talkin_To_Me then
      Put_Line ("Oh, yeah?");
   else
      Put_Line ("Then who the hell else are you talkin' to?");
   end if;
end Travis;