//measuring time through space

paper 50
forever

{

set lone (lone+1)
set ltwo (ltwo +2)
set lthree (lthree-3)
set lfour (lfour +0)
notsmaller? lone ([43 50]+[18 44])
{
set lone 0
}
notsmaller? ltwo ([5 57]+15)
{
set ltwo 0
}
notsmaller? lthree ([51 51]-[50 49])
{
set lthree 0
}
pen lone
line [22 9] [48 5] lone ltwo
pen ltwo
line [12 19] [2 21] lthree ltwo
pen lthree
line [52 50] [42 50] ltwo lthree
}

//this is a modification of mas961 akilian problem set.