Artlandia functions are shown in red. 
<<Artlandia`
TimeDomainPlot[fun_, length_] := 
  ListPlot[fun[length], PlotJoined -> True, Axes -> False, Frame -> True, 
   Background -> Black]
TimeDomainPlot[RandomArray, 300]
TimeDomainPlot[NaturalArray, 300]
TimeDomainPlot[RandomWalkArray, 300]

Return