David Luposchainsky quchen

I hereby claim:

To claim this, I am signing this object:

	{-# LANGUAGE LambdaCase #-}
	{-# LANGUAGE OverloadedStrings #-}


	module Main (main) where

	import System.IO
	import System.Environment
	import qualified System.Exit as Exit
	import Text.Printf

	import qualified Data.Set as S
	import System.IO.Unsafe
	import System.Directory
	import System.Environment
	import Control.Exception
	import Data.List

	newtype Song = Song String
	deriving (Show, Read, Eq)

	{-# LANGUAGE LambdaCase #-}

	-- \| Teaching terrible coding practices with the help of purely functional
	-- programming. Today: Node.hs!
	module NodeHs where



	import Control.Concurrent
	import Control.Exception

	<!DOCTYPE html>
	<html lang="en">
	<head>
	<meta charset="utf-8">
	<title>Fusion 2018 – Scraped Soundcloud links</title>
	</head>
	<body>

	<h1>Fusion 2018 – Scraped Soundcloud links</h1>

	module Main (main) where
	-- Does not typecheck yet :-(
	main = putStr (hello (:) [] succ minBound)

	s f g x = f x (g x)
	k x _ = x

	hello :: (char -> io -> io) -> io -> (char -> char) -> char -> io
	hello = s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s (s (k s) (s (k
	(s (k s))) (s (k (s (k (s (k s))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k