diff --git a/modules/compiler_vm/languages/_default.pm b/modules/compiler_vm/languages/_default.pm
index 2d786133..3f4da38a 100755
--- a/modules/compiler_vm/languages/_default.pm
+++ b/modules/compiler_vm/languages/_default.pm
@@ -150,7 +150,9 @@ sub postprocess_output {
   }
   $self->{output} = $boutput;
 
-  $self->{output} =~ s/\007/*BEEP*/g;
+  my @beeps = qw/*BEEP* *BING* *DING* *DONG* *CLUNK* *BONG* *PING* *BOOP* *BLIP* *BOP* *WHIRR*/;
+
+  $self->{output} =~ s/\007/$beeps[rand @beeps]/g;
 }
 
 sub show_output {