for i=1to(getc(0)-48)*3do puts(1,"Bloody Mary\n")end for