1supported_distributions([uniform,normal,gaussian]).
    2
    3sample_var(uniform,Lower,Upper,Sampled):- 
    4    sample_var(uniform,Lower,Upper,1,Sampled).
    5sample_var(uniform,Lower,Upper,Samples,Sampled):-
    6    true.
    7
    8sample_var(normal,Sampled):-
    9    sample_var(gaussian,0,1,1,Sampled).
   10sample_var(normal,Samples,Sampled):-
   11    sample_var(gaussian,0,1,Samples,Sampled).
   12sample_var(gaussian,M,V,Sampled):-
   13    sample_var(gaussian,M,V,1,Sampled).
   14sample_var(gaussian,M,V,Samples,Sampled):-
   15    true