diff --git a/bin/main.ml b/bin/main.ml
index 39d87ec..10a9549 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -38,7 +38,11 @@ let rec check ctx =
   in
   if 0 = timeout
   then (
-    print_endline "TODO: We are tweeting here. :)";
+    (* Tweet and returns to profile page *)
+    tweet
+      ctx
+      "This tweet is for the Twitter's CTO: Don't suspend my account for inactivity.";
+    go_to_profile ctx;
     (* Wait the maximum time since we just tweeted *)
     recheck max_time)
   else (* Wait the amount of time calculated from the post *)
diff --git a/bin/twitter.ml b/bin/twitter.ml
index f7ad4be..73c433d 100644
--- a/bin/twitter.ml
+++ b/bin/twitter.ml
@@ -133,3 +133,5 @@ let find_latest_tweet ctx =
     (* Returns the most recent date *)
     Some (List.fold_left max min_int datetimes)
 ;;
+
+let tweet _ctx _msg = ()