Haskell , no bonus yet module Main main where import Data . Char capitalise String String capitalise xxs toUpper xxs data State Start Exit Error S Int data Wire White Red Green Orange Black deriving Read next State Wire State next Start White S 1 next Start Red S 2 next S 1 White S 2 next S 1 Orange S 3 next S 2 Red Start next S 2 Black S 3 next S 3 Black S 3 next S 3 Orange S 4 next S 3 Green S 5 next S 4 Green Exit next S 5 Orange Exit next Error out State String out Exit Defused out Boom main IO main interact $ out . foldl next Start . map read . capitalise . lines <| sep |> Yes , it ' s true that Turning Point USA didn ' t create any original material on its compendium , and its claims of professorial malfeasancefrom using swear words to attesting that racism is a thingare reputably sourced . It ' s also true that beleaguered conservative intellectuals have as much of a right to grumble as liberal professors have to grandstand . I ' ll put my self on the fucking list if they are so thin skinned as to be offended by swearing and talking about the realities of racism . Not that any rational human being would consider this as a useful list for anything other than the harassment of people you disagree with .