First they came

"First they came..." is a poem by Martin Niemöller:

First they came for the Socialists, and I did not speak out-
Because I was not a Socialist.

Then they came for the Trade Unionists, and I did not speak out-
Because I was not a Trade Unionist.

Then they came for the Jews, and I did not speak out-
Because I was not a Jew.

Then they came for me-and there was no one left to speak for me.


Your task is to output the above. This is , so shortest code in bytes wins!

Rules

• You may include extra whitespace that does not affect appearance. A single trailing newline is allowed.
• Otherwise, the output must match exactly, including the location of newlines.
• As per meta standards, you may output a list of strings. However, you must include the empty lines.

Note that I personally believe this is not a dupe because of how the poem is laid out - it needs some creativity to golf. Meta discussion about whether this is a dupe or not can be found here.

• I'm not sure what this adds to the site above and beyond the RickRoll challenge. – AdmBorkBork Aug 21 '17 at 14:54
• Meta discussion – programmer5000 Aug 21 '17 at 15:06
• For once, I don't think this is a Rickroll dupe. There is meaningful structure here. The parallelism allows from different strategies. Reopening. – xnor Aug 21 '17 at 23:51
• The structure is an argument in favour of being a dupe of the rickroll, not against. – Peter Taylor Aug 22 '17 at 9:50
• The poem in question has much more structure than Never Gonna Give You Up, I don't see how it makes it more of a dupe target. – totallyhuman Aug 22 '17 at 18:02

SOGL V0.12, 103102 101 bytes

 →∑‘¾ο╤Ε9‘}ψ⁴‘¹"4¡‘Q°‘:¹¹I{ū_:¹"Eā/}l6⁸SÆ□⁴↔b⅜╬I℮;YΥηκ*█⅞F^Κ⅜⁸{x⅔⁵⅟╚?Z‘O}"Ι╚╬√⅔δηvΧχ⁷⁾Η<υL┼!Ο'μΠ⁵╝⁷‘⁾


Try it Here!

Explanation (here I replaced the compressed strings with .. to save space):

..‘.‘..‘                              push "socialist", "trade unionist" and "jew"
¹                             wrap in an array: ["socialist", "trade unionist", "jew"]
"..‘..‘                      push "first" and "then"
:                     duplicate the then
¹                    wrap in an array: ["first","then","then"]
¹                   wrap those two in an array: [["socialist", "trade unionist", "jew"], ["first","then","then"]]
I                  rotate clockwise: [[first,socialist], [then,trade unionist], [then,jew]]
{         }       for each do, pushing the array
ū                  uppercase the 1st letter of each word in the array - ["First", "Socialist"]
_                 splat the contents on the stack   "First", "Socialist"
:                duplicate the 2nd one             "First", "Socialist", "Socialist"
¹               wrap in an array                  ["First", "Socialist", "Socialist"]
"..‘           push "ŗ they came for the ŗs, and I did not speak out-\nBecause I was not a ŗ." with ŗ replaced with its appropriate item in the array
O          output that
"..‘   push "then they came for me-and there was no one left to speak for me."
⁾  uppercase the 1st letter of it
implicitly output it in a new line

• Could you add an explanation please? – Nzall Aug 22 '17 at 14:22
• @Nzall Forgot to, writing up – dzaima Aug 22 '17 at 14:28
• @Nzall Added an explanation – dzaima Aug 22 '17 at 14:50

6502 machine code (C64), 229 bytes

Kind of boring, still doable on a C64 with a somewhat decent amount of bytes :)

00 C0 A9 17 8D 18 D0 A2 2C 86 FE A6 FE A0 C0 BD B6 C0 20 1E AB C6 FE 10 F2 60
C6 49 52 53 54 20 00 D4 48 45 4E 20 00 54 48 45 20 00 54 48 45 59 20 43 41 4D
45 20 00 46 4F 52 20 00 53 50 45 41 4B 20 00 41 4E 44 20 C9 20 44 49 44 20 4E
4F 54 20 00 4F 55 54 2D 0D 00 C2 45 43 41 55 53 45 20 C9 20 57 41 53 20 4E 4F
54 20 41 20 00 4D 45 2D 41 4E 44 20 54 48 45 52 45 20 57 41 53 20 4E 4F 20 4F
4E 45 20 4C 45 46 54 20 54 4F 20 00 4D 45 2E 00 2E 0D 00 53 2C 20 00 D3 4F 43
49 41 4C 49 53 54 00 D4 52 41 44 45 20 D5 4E 49 4F 4E 49 53 54 00 CA 45 57 00
0D 00 8C 35 3A 6B 2A 1F B4 90 B0 56 50 3A 41 93 B0 25 35 2A 1F B4 90 A1 56 50
3A 41 93 A1 25 35 2A 1F B4 90 97 56 50 3A 41 93 97 25 35 2A 18


Online demo

Usage: SYS49152

Explanation:

As this contains mostly data, instead of a meaningless disassembly listing, here's the ca65-style assembly source that creates this machine code:

.segment "LDADDR"
.word   $c000 ; load address .code lda #$17            ; upper/lower mode
sta     $d018 ; store in VIC register ldx #revpoemsize ; initialize ... stx$fe             ; ... counter
loop:           ldx     $fe ; load current position ldy #$c0            ; highbyte of strings always same
lda     revpoem,x       ; load lowbyte from table
jsr     $ab1e ; output 0-terminated string dec$fe             ; decrement position
bpl     loop            ; >=0 ? -> repeat
rts                     ; done

first:          .byte   "First ", 0
then:           .byte   "Then ", 0
the:            .byte   "the ", 0
came:           .byte   "they came ", 0
for:            .byte   "for ", 0
speak:          .byte   "speak ", 0
didnot:         .byte   "and I did not ", 0
out:            .byte   "out-", $d, 0 wasnot: .byte "Because I was not a ", 0 noone: .byte "me-and there was no one left to ", 0 me: .byte "me.", 0 period: .byte ".",$d, 0
comma:          .byte   "s, ", 0
socialist:      .byte   "Socialist", 0
jew:            .byte   "Jew", 0
Because I was not a $_. Then",Socialist,"Trade Unionist",Jew),"me-and there was no one left to speak for me."  Try it online! Thanks to @Massa for -3 bytes! • Use Join and you can trim another five chairs or so – Massa Aug 23 '17 at 14:46 • @Massa not sure I'm seeing how! Any more clues? – Dom Hastings Aug 23 '17 at 14:59 • I'm on my mobile right now, but take a look at my perl6 answer below! – Massa Aug 23 '17 at 15:00 • @Massa Ahhh, nice! Thanks! -3 in the end :) – Dom Hastings Aug 23 '17 at 15:08 C, 248 bytes Thanks to @Zacharý for saving 9 bytes. p(x,y){printf("%s they came for the %ss, and I did not speak out-\nBecause I was not a %s.\n\n",x,y,y);}f(){p("First","Socialist");p("Then","Trade Unionist");p("Then","Jew");puts("Then they came for me-and there was no one left to speak for me.");}  Try it online! • Can you move s directly into the printf statement? – Zacharý Aug 21 '17 at 15:09 • @Zacharý Yes, of course. – Steadybox Aug 21 '17 at 15:10 • 247 bytes – ceilingcat Jan 22 '20 at 23:21 C# (.NET Core), 248246 242 bytes a=>{string b=@", and I did not speak out- Because I was not a ",c=" they came for ",d="Socialist",e="Trade Unionist";return$@"First{c+d}s{b+d}.

Then{c+e}s{b+e}.

Then{c}the Jews{b}Jew.

Then{c}me-and there was no one left to speak for me.";}


Actual newlines saved me a few bytes.

Try it online!

Saved 2 bytes thanks to Business Cat

Python 3, 203 bytes

print('First',*[f'the {s}s, and I did not speak out-\nBecause I was not a {s}.\n\nThen'for s in['Socialist','Trade Unionist','Jew']],'me-and there was no one left to speak for me.',sep=' they came for ')


Try it online!

• sep= is a genius move! :-) – Massa Aug 28 '17 at 13:49

Befunge-93, 348 bytes

".em rof kaeps ot tfel eno on saw ereht dna-em rof emac yeht nehT"52*:v
v"d not speak out-"*25"Because I was not a "<   p5-2*89p1-2*89"vvJew."<
> "id I dna ">",sweJ>v"67+2p66+5p     v     ^p2-2*89"vTrade Unionist."<
>"tsriF">:#,v>",stsinoinU edarTv"67+3pv     ^   p3+66p40"^_Socialist."<
>"nehT"52*: v>",stsilaicoS@"67+3p     >" eht rof emac yeht "


Try it online!

Befunge, 293274 270 bytes

62574732594932584832001v_@#:\0\!<
0-*84g+3/"P"\%"P"::+p00<_|#:-1g0
84!-"*":g+3/"P"\%"P"::+1\<+1_$#:^#-2\,-** &First0 they came for %the Qs, and I did not speak out-*Because I was not a (.** ThenOme-and there was no one left to speak for me.*$Jew*Socialist/Trade Unionist


Try it online!

This is a different approach to the existing Befunge solution. It uses a kind of linked list to store a dictionary of the common phrases, and then just has a simple list of values on the stack representing the order in which the phrases should be output.

Retina, 176 bytes


Socialists, Trade Unionists, Jews,1me-and there was no one left to2for me.
( .+?)s,
1the$& and I did not2out-¶Because I was not a$1.¶¶Then
^
First
1
they came for
2
speak


Try it online! Explanation: The 1 and 2 are just repeated strings which are long enough to be worth deduplicating. The First is added later to make it easier to select the placeholder for the repetitive portion, "they came for the [group]s, and I did not speak out-Because I was not a [group]. Then", which is expanded by the second stage.

JavaScript (ES6), 231227223 221 bytes

_=>First${t=" they came for "}the Socialist${a=s, and I did not speak out-
Because I was not a }Socialist${t=. Then+t}the${(u="Trade Unionist")+a+u+t}the Jew${a}Jew${t}me-and there was no one left to speak for me.


Try it

o.innerText=(
_=>First${t=" they came for "}the Socialist${a=s, and I did not speak out-
Because I was not a }Socialist${t=. Then+t}the${(u="Trade Unionist")+a+u+t}the Jew${a}Jew${t}me-and there was no one left to speak for me.
)()
<pre id=o>

Java 8, 250 236 bytes

o->{String t=" they came for ",r="First";for(String s:"Socialist,Trade Unionist,Jew".split(","))r+=t+"the "+s+"s, and I did not speak out-\nBecause I was not a "+s+".\n\nThen";return r+t+"me-and there was no one left to speak for me.";}


Try it here.

JavaScript (ES6), 210207206 203 bytes

A different approach to my other solution so figured it was worth editing it out to its own answer now that the challenge has been reopened.

_=>First${["Socialist","Trade Unionist","Jew"].map(x=>t+the${x}s, and I did not speak out-
Because I was not a ${x}. Then,t= they came for ).join+t}me-and there was no one left to speak for me.  Try it o.innerText=( _=>First${["Socialist","Trade Unionist","Jew"].map(x=>t+the ${x}s, and I did not speak out- Because I was not a${x}.

Then,t= they came for ).join+t}me-and there was no one left to speak for me.
)()
<pre id=o>

Gaia, 179 175 bytes

⇓“the ”3ṁ“s, and I did not speak out-¶Because I was not a ”2ṃ“.¶¶Then
“ they came for
First”“Socialist“Trade Unionist“Jew”↓¦⇑“me-and there was no one left to speak for me.”]$ Try it online! Explanation 3 functions are defined here (1 per line). The bottom one is called first. ¶ gets replaced by newlines. ⇓“the ”3ṁ“...”2ṃ“.¶¶Then First helper function. Argument: s ⇓ Push "Then they came for " “the ” Push "the " 3ṁ Bring s to the top “...” Push "s, and I did not speak out-¶Because I was not a " 2ṃ Push a copy of s “.¶¶Then Push ".¶¶Then" “ they came for Helper function. No arguments. “ they came for Push " they came for " First”“..“..“..”↓¦⇑“...”]$  Main function.
First”                      Push "First"
“..“..“..”            Push the list ["Socialist" "Trade Unionist" "Jew"]
↓¦          Call the first helper function on each.
⇑         Push "Then they came for "
“...”    Push "me-and there was no one left to speak for me."
]$Wrap the stack in a list and join with no separator.  Bubblegum, 149132 129 bytes 00000000: 9d4d b515 0241 14cc af8a c991 1e70 0991 .M...A.......p.. 00000010: 02fe bbfd e7b7 cb1a 523d ee0e d9f8 7453 ........R=....tS 00000020: 631d 5cc2 2b84 5432 2265 760c 6315 a654 c.\.+.T2"ev.c..T 00000030: a4d6 d92a 480a 0c20 5201 a91c ec8c 2987 ...*H.. R.....). 00000040: f2ae 1634 3924 6f79 6b2e c8ee 4dba 14eb ...49$oyk...M...
00000050: 4130 4958 3ed9 9e18 128c a94c 95fc e3e0  A0IX>......L....
00000060: b6fd fa65 c88b 1fa7 7795 e77b 25d7 488a  ...e....w..{%.H.
00000070: 9d68 f898 8792 8c82 2307 a78e bb87 647d  .h......#.....d}
00000080: 03                                       .


Try it online!

Credit for -17 bytes goes to Dom Hastings

-3 bytes by ovs

• 132 bytes. Still can't beat SOGL! – Dom Hastings Aug 21 '17 at 16:17
• @DomHastings I don't think you'll ever beat SOGL with Bubblegum... – Erik the Outgolfer Aug 22 '17 at 8:14
• @EriktheOutgolfer I'm very glad of that fact too! I'd like to invest some time to play with it, incredibly expressive! – Dom Hastings Aug 22 '17 at 18:36
• 129 bytes – ovs Aug 28 '17 at 8:51

SQL 269 bytes

declare @ char(18)='They came for the ',@a char(49)='s, and I did not speak out-
Because I was not a '
print'First '+@+'Socialist'+@a+'Socialist.

'+@+'Jew'+@a+'Jew.

'+@+' me-and there was no one left to speak for me.'

• Hi, welcome to PPCG! I've edited your post to add some formatting. As for the actual code, I think the leading words "Then " are missing in the last three sentences, and the last sentence now states "They came for the me-..." instead of "Then they came for me-...". – Kevin Cruijssen Jan 21 '19 at 14:40

PowerShell, 211202 198 bytes

-13 bytes thanks to @Veskah

$a,$b='First',' they came for'
'Socialist','Trade Unionist','Jew'|%{"$a$b the $_s, and I did not speak out- Because I was not a$_.
Because I was not a $_2. ];[$t$c me-and there was no one left to speak for me.]}  Try it online! PHP, 194 bytes First<?=$t=" they came for ";foreach([Socialist,"Trade Unionist",Jew]as$s)echo"the${s}s, and I did not speak out-
Because I was not a $s. Then$t"?>me-and there was no one left to speak for me.


C (gcc), 244 bytes

f(c){for(c=0;c<3;printf("%s they came for the %ss, and I did not speak out-\nBecause I was not a %2\$s.\n\n",c++?"Then":"First",c^2?c?"Trade Unionist":"Socialist":"Jew"));puts("Then they came for me-and there was no one left to speak for me.");}


Try it online!

Python 3, 208 bytes

print(' they came for '.join(["First"]+[f"the {i}s, and I did not speak out-\nBecause I was not a {i}.\n\nThen"for i in['Socialist','Trade Unionist','Jew']]+['me-and there was no one left to speak for me.']))


Try it online!

-1 thanks to @Step Hen

• Then "for -> Then"for and you're beating the other Python answers :) – Stephen Aug 23 '17 at 14:43
• @StepHen Thanks for noticing the extra space! :-) – Massa Aug 23 '17 at 18:03

Clojure, 285 bytes

(fn[](doseq[i(range 4):let[c["Socialist""Trade Unionist""Jew"""]f #(if(< i 3)% %2)]](println(if(= i 0)"First""Then")"they came for"(str(f(str"the "(c i)"s, ")"me-")(f"and I did not speak out-\n""and there was no one left to speak for me.")(f(str"Because I was not a "(c i)".\n")"")))))


This was a fun little challenge. I ended up almost entirely rewriting most of it a couple of times because I realized I was doing something overly roundabout. There are still a couple areas that could probably be touched up, but I'm pretty happy with how it turned out, even if I'm only "compressing" the original by 54 bytes.

repl.io

See the pre-golfed code for an explanation:

(defn ftc []
; Loop over the lines numbers for reference
(doseq [i (range 4)
:let [; Added a dummy last "class" since "me-" wasn't necessary,
;  and only having 3 elements was causing OOB errors.
classes ["Socialist" "Trade Unionist" "Jew" ""]

; A helper function that executes either its first or second argument
;  depending on if the current line is one of the first 3 lines.
if-first-three-lines #(if (< i 3) % %2)]]

; An implicit space is inserted between each of the args to println
(println
; Decide on the opener
(if (= i 0) "First" "Then")

"they came for"

; Start string concatenation because the implicit space
;  begins complicating things.
(str
; Decide which "class" the line belongs to
(if-first-three-lines
(str "the " (classes i) "s, ")
"me-")

; Decide on the line ending
(if-first-three-lines
"and I did not speak out-\n"
"and there was no one left to speak for me.")

; Then pick the trailer
(if-first-three-lines
(str "Because I was not a " (classes i) ".\n")
"")))))


Japt, 153150149 147 bytes

{= ey ¯´ f }´-d tre °s no e ¤ft  speak f ´.iSáû\E
TÎè UÍát
Jew·rÈ+U+e {Y}s, d I ¹d not speak t-
Be¯«e I °s not a {Y}.

Tn}Fir¡


Test it

1 byte saved thanks to Oliver

05AB1E, 124 119 bytes

.•RYÁ Wö∍®Ø’áÅÚ)’Òü•'x¡™vy„€Û‚½#NĀè™“ÿ€»‹é€‡€€ ÿs,€ƒ Iƒ§€–¡´€Ä-“©¶y“ƒ« I€¥€–€… ÿ.“.ª¶¶}®19£“€á-and€Ç€¥€¸€µ…¸€„¡´€‡€á.“J


Try it online.

Explanation:

.•RYÁ Wö∍®Ø’áÅÚ)’Òü•
# Push compressed string "socialistxtrade unionistxjew"
'x¡             '# Split it on "x": ["socialist","trade unionist","jew"]
™             # Convert each word to Titlecase: ["Socialist","Trade Unionist","Jew"]
v                 # Loop y over each of these strings:
y                #  Push string y
„€Û‚½            #  Push dictionary string "first then"
#           #  Split on spaces: ["first","then"]
N          #  Push the index of the loop
Ā         #  Truthify it (0 remains 0; every other number becomes 1)
è        #  Use it to index into the list
™       #  Titlecase it
“ÿ€»‹é€‡€€ ÿs,€ƒ Iƒ§€–¡´€Ä-“
#  Push dictionary string "ÿ they came for the ÿs, and I did not speak out-"
#  where the "ÿ" are automatically filled with the strings at the top of the stack
©               #  Save it in the register (without popping)
¶                #  Push a newline "\n"
y                #  Push string y again
“ƒ« I€¥€–€… ÿ.“  #  Push dictionary string "because I was not a ÿ."
#  where the "ÿ" is automatically filled again with the string
.ª              #  Sentence case it: "because" becomes "Because"
¶¶               #  Push two newline characters "\n\n"
}                 # After the loop:
®                 # Push the string from the register:
#  "Then they came for the Jews, and I did not speak out-"
19£              # Only leave the first 19 characters: "Then they came for "
“€á-and€Ç€¥€¸€µ…¸€„¡´€‡€á.“
# Push dictionary string "me-and there was no one left to speak for me."
J                 # Then join everything on the stack together (and output implicitly)

• .•RYÁ Wö∍®Ø’áÅÚ)’Òü• is "socialistxtrade unionistxjew"
• „€Û‚½ is "first then"
• “ÿ€»‹é€‡€€ ÿs,€ƒ Iƒ§€–¡´€Ä-“ is "ÿ they came for the ÿs, and I did not speak out-"
• “ƒ« I€¥€–€… ÿ.“ is "because I was not a ÿ."
• “€á-and€Ç€¥€¸€µ…¸€„¡´€‡€á.“ is "me-and there was no one left to speak for me."

Text, 348 bytes

First they came for the Socialists, and I did not speak out-
Because I was not a Socialist.

Then they came for the Trade Unionists, and I did not speak out-
Because I was not a Trade Unionist.

Then they came for the Jews, and I did not speak out-
Because I was not a Jew.

Then they came for me-and there was no one left to speak for me.


This is the shortest possible version in its language, and is on par with the Befunge-93 answer at time of writing.

• As with pretty much all "Text" answers, this is boring and lazy – Jo King Jan 22 '19 at 5:46
• @Jo King The notable bit is that it's the same length as the Befunge-93 answer. – IFcoltransG Jan 22 '19 at 6:02