Cannot combine graphic objects while plotting two Smooth Histograms

I am trying to plot two smooth histograms, which I’m generating separately so I can chose their PlotStyle separately. When I run the code, it says I cannot combine the two graphic objects. What am I doing wrong?

Thanks,
Sid

CloudDeploy[
 FormPage[{"k1" -> "Number", "n1" -> "Number", "n2" -> "Number", 
   "k2" -> "Number", "n3" -> "Number", "n4" -> "Number"},
  
  fig1 = SmoothHistogram[
     Table[Table[
       If[RandomReal[] > #k1, RandomChoice[{100, 90}], 
        RandomChoice[{80, 70, 60, 50, 40}]], #n1], #n2], 
     PlotStyle -> Red] &;
  fig2 = SmoothHistogram[
     Table[Table[
       If[RandomReal[] > #k2, RandomChoice[{100, 90}], 
        RandomChoice[{40, 30, 20, 10, 0}]], #n3], #n4] , 
     PlotStyle -> Gray] &;
  
  Show[{fig1, fig2}]]]