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

use PDL;

my $max = $ARGV[0];

my $ratio_list = pdl (0..$max);

my $minutes_list = 10 * $ratio_list;