diff --git a/Lib/PrettyPrinter.hs b/Lib/PrettyPrinter.hs
index 67f7953..2148d4c 100644
--- a/Lib/PrettyPrinter.hs
+++ b/Lib/PrettyPrinter.hs
@@ -58,7 +58,7 @@ formatTime status state = case (status, state) of
   (Error err, _) ->
     "Decimal time: " <> T.pack err
   (AlarmReached _, Right s) ->
-    baseTimeText s <> " ALARM!"
+    baseTimeText s <> " ALARM!\BEL"
   (Normal, Right s) ->
     baseTimeText s
   (_, _) ->