#!/usr/bin/perl
use strict; use warnings;
my ($april, $fools) = (0, 0);
while (1) {
    while (1) {
        while (1) {
            while (1) {
                if (rand > .5) {
                    if (rand > .5) { $april *= .7 } else { $april /= .5  }
                    if (rand < .5) { $april += 4.5} else { $april -= 3.2 }
                }
                if (rand > .5) {
                    if (rand > .5) { $fools *= 3 } else { $fools %= 13 }
                    if (rand < .5) { $fools += 5 } else { $fools -= 11 }
                }
            }
        }
    }
}