Print ->
Arg Distances : List : Integer <- DayData,
    Day_to_mark : Integer

Say 'Day  Volatility  T  W' "\n"

Do get Day_of_month, Day from Distances
 Average_value = Day.Total / Day.Divider
 Integer_value = Round( Average_value * ( 10 ^ 4 ) );

 Asterisk = '*' [ Day_of_month = Day_to_mark ] | ''

 Say ' ' Day_of_month "\t" Integer_value "\t" Day.Trends ' ' Day.Waves '  ' Asterisk
;

/

















