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

Say 'Day  Volatility  T   W' "\n"

Do get Day_of_month_or_week, Day from Distances
 Average_value = Round (Average * (10 ^ 4))
 ' Average = Day.Total / Day.Divider

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

 Say ' ' Day "\t" Average "\t" Trends ' ' Waves ' ' Asterisk 
 ' Day = ' ' || Day_of_month_or_week 2,
   Average_value = ' ' || Average_value 3,
   Trends = ' ' || Day.Trends 3,
   Waves = ' ' || Day.Waves 3
;

/

















