# Start writing
@life = open PAST;
@memories = strip(@life);

foreach $memory (@memories) {
    write $memory, $perspective, $lesson;
}
@memories < $expected;

@life = open FUTURE;