The Life of a Programming Student

My little program, illustrating how boring life can be when all you do is study computers:
/*************************************
 * The Life of a Programming Student *
 *  by Mark Tuson, 2010              *
 *************************************
 * (>) Copyleft, All Rights Reversed *
 *************************************/

#include [life] // The standard libraries for living
#include [boredom] // The special libraries for boredom
#include [flask] // Enables handling of coffee
#include [lighters] // Enables handling of NICOTINE

#define COMPUTERS (rnd());
#define CAFFIENE "C8 H10 N4 O2"
#define WATER "H2 O"
#define NICOTINE "C10 H14 N2"

boolean awake = FALSE;
boolean dressed = FALSE;

/*
 * 'main' loops endlessly, cycling through 'day()' forever
 */

main() {
  for(;;) {
    day(); }
  return; }

day(null) {
  liquid coffee = (CAFFIENE + WATER);
  wake();
  make(coffee);
  drink(coffee);
  dress();
  college();
  undress();
  sleep();
  return; }

wake(null) {
  awake = TRUE;
  return; }

dress(null) {
  dressed = TRUE;
  return; }

undress(null) {
  dressed = FALSE;
  return; }

sleep(null) {
  awake = FALSE;
  return; }

college(null) {
  liquid coffee = (CAFFIENE + WATER);
  solid tobacco = NICOTINE;
  for(;;) {
    study(COMPUTERS);
    smoke(tobacco);
    drink(coffee); }
  return; }

study(subject) {
  if (subject != finished) {
    study(subject); } // Recursive
  return; }