anchor.diff:                          | TFlag.phase_diff -> read_args t TFlag.phase_diff (configuration.Setphase_diff (float v))
                           | TFlag.sample_duration -> read_args t TFlag.sample_duration (configuration.Setsample_duration (float v))
                           | TFlag.none -> read_args t TFlag.none config
  -        | [] -> config.show_me "Test"
  +        | [] -> config.show_me ()
   
   
  -    read_args (Array.toList args) TFlag.none configuration
  -    0;;
  +    read_args (Array.toList args) TFlag.none configuration;;
   
   
   
  
positive.code: 
  module signalMaker
  
  type TConfiguration() =
      let mutable signal_frequency:float = 50.0
      let mutable sample_frequency:float = 20000.0
      let mutable phase_diff:float = 0.0
      let mutable sample_duration:float = 10000.0
  
      member this.Setsignal_frequency frequency =
          signal_frequency <- frequency
  
negative.code:     member this.Getsample_duration =
          sample_duration
  
  
      member this.show_me () =
          samples <- int (sample_frequency * sample_duration)
          samples_per_period <- int (sample_frequency / signal_frequency)
          periods <- samples / samples_per_period
  
          printfn "%8.1f\t%8.1f" sample_frequency sample_duration
          show_signal ()
  
  
  type TFlag =
      | none = 0
  