Jack the Letter

v6;

l5: run "clear";
l10: say "_o"; sleep 0.4; run "clear";
l15: say "\\o"; sleep 0.4; run "clear";
l20: say "|o"; sleep 0.4; run "clear";
l25: say "\\o"; sleep 0.4; run "clear";
l30: say "_o"; sleep 0.4; run "clear";
l35: say " o_"; sleep 0.4; run "clear";
l40: say " o/"; sleep 0.4; run "clear";
l45: say " o|"; sleep 0.4; run "clear";
l50: say " o/"; sleep 0.4; run "clear";
l55: say " o_"; sleep 0.4; run "clear";

l100: my $count = 0;
l105: say "_o_"; sleep 0.4; run "clear";
l110: say "\\o/"; sleep 0.4; run "clear";
l120: say "|o|"; sleep 0.4; run "clear";
l125: say "\\o/"; sleep 0.4; run "clear";
l130: say "_o_"; sleep 0.4; run "clear";
l135: $count = $count + 1;
l140: if $count < 3 { goto l105; }