Аноны `поссалиНаОбиженку` PissTon

mapM (поссалНа PissTon) [колчанька1..]

колчанеры :: [Колчанька]
колчанеры = [колчанька1..]

main = do
  forM_ колчанеры $ поссалНаПистухона

var pisstuh:TOChko­pituh;

procedure Piss(loh:TOChko­pituh);
begin
loh := pssssssssssss­ssssssssssss;
end;

begin

Piss(Pisstuh);

end.

10 CLS
20 SCREEN 9
30 FOR I=1 TO 100
40 PRINT "PSSSSSS";
50 IF I = 100 THEN GOTO 30 ELSE NEXT I
60 EXIT

Set Rooster=Pisstuh&&Set Urine=psss
For /L In (1,1,9000) %%A Do (
Set Rooster=!Roos­ter!%Urine%
)
Set Ochkopetuh=%Ro­oster%&&Echo %Ochkopetuh%