<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

$x = rand(1);
for $i (1..600){
    $y1 = sin($x);
    $y2 = sin($x-.3);
    $y3 = sin($x-.6);
    $x += .3;
    $dy2 = 100*$y2;
    $dy1 = 100*$y1;
    $dy3 = 100*$y3;
    print("$dy1 $dy2 $dy3\n");
}
</pre></body></html>