Make a bottom up poem Based on the &quot;Pretty Ugly&quot; poem.
Input consists of a number of stanzas (positive integer), and four arrays/lists of strings, called the &quot;negatives&quot;, &quot;negations&quot;, &quot;positives&quot;, and &quot;filler&quot; sentences.
You must output a &quot;pretty ugly&quot; poem with the specified number of stanzas. A stanza consists of a negative, negation, positive and filler sentence, in that order. Finally, the poem must end with the string (Now read bottom up).
In other words, the output must be a list of strings of the form [negative, negation, positive, filler, negative, negation, positive, filler, negative, ..., &quot;(Now read bottom up)&quot;], with the negative, negation, positive , filler part repeated once per stanza.
Rules:

The lines should be chosen at random from the lists
Output can be in any format, as long as it's a comprehensible poem. Printing to STDOUT, returning a list of strings, returning a string with lines separated by commas, and so on are all allowed
You may assume that the 4 lists are all non-empty, but not that they have the same length
The number of stanzas can be zero. If so, the output is (Now read bottom up)
Shortest program (in bytes) wins

Sample input:
n = 4

negatives = [
  &quot;I am a terrible person&quot;,
  &quot;Everything I do is useless&quot;,
  &quot;I don't deserve to be loved&quot;,
  &quot;I will never succeed at anything&quot;
]

negations = [
  &quot;It's foolish to believe that&quot;,
  &quot;I don't think it's reasonable to say that&quot;,
  &quot;I will never believe that&quot;,
  &quot;No one can convince me into thinking that&quot;
]

positives = [
  &quot;I am beautiful inside and out&quot;,
  &quot;The people around me love me&quot;,
  &quot;I will succeed at my career&quot;,
  &quot;I can be successful&quot;
]

fillers = [
  &quot;I just have to accept that&quot;,
  &quot;After all, it's pretty clear&quot;,
  &quot;So I think it's pretty obvious&quot;,
  &quot;It will be clear if you think about it&quot;
]

Sample output:
I don't deserve to be loved
I don't think it's reasonable to say that
I will succeed at my career
After all, it's pretty clear
I don't deserve to be loved
I don't think it's reasonable to say that
I can be successful
I just have to accept that
Everything I do is useless
No one can convince me into thinking that
I can be successful
So I think it's pretty obvious
I don't deserve to be loved
It's foolish to believe that
I am beautiful inside and out
I just have to accept that
(Now read bottom up)
Perl 5, 62 61 bytes
@randomdude999 pointed out a space I could remove to save a byte.

sub f{(map{map$$_[rand@$_],@_}1..pop),&quot;(Now read bottom up)&quot;}

Try it online!
A function which takes in the sets of statements as a reference to an array for each type of statement and the number of stanzas.  Returns an array of strings, one element for each line of the poem.