#!/usr/bin/perl
use warnings;
use strict;

foreach (@_) {
  if ($_->isa('thing')) {
    $_->season(); }
    foreach (purposeUnderHeaven() ) {
      time_to($_);
    }
}

sub purposeUnderHeaven {
  return [
    'be born',          'die',
    'plant',            'pluck up that which is planted',
    'kill',             'heal',
    'break down',       'build up',
    'weep',             'laugh',
    'mourn',            'dance',
    'cast away stones', 'gather stones together',
    'embrace',          'refrain from embracing',
    'get',              'lose',
    'keep',             'cast away',
    'rend',             'sew',
    'keep silence',     'speak',
    'love',             'hate',
    'war',              'peace'
  ];
}

sub time_to { do $_; }