Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2019
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.78 KB | None | 0 0
  1. module Main (main) where
  2. -- Does not typecheck yet :-(
  3. main = putStr (hello (:) [] succ minBound)
  4.  
  5. s f g x = f x (g x)
  6. k x _ = x
  7.  
  8. hello :: (char -> io -> io) -> io -> (char -> char) -> char -> io
  9. hello = s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s (s (k s) (s (k
  10. (s (k s))) (s (k (s (k (s (k s))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k
  11. (s (k s))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s (k (s
  12. (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k (s (k s))) (s (k (s (k (s
  13. (k s))))) (s (k (s (k (s (k (s (k s))))))) (s (s (k s) (s (k (s (k s))) (s
  14. (k (s (k (s (k s))))) (s (k (s (k (s (k (s (k s))))))) (s (s (k s) (s (k (s
  15. (k s))) (s (k (s (k (s (k s))))) (s (k (s (k (s (k (s (k s))))))) (s (s (k
  16. s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s (k (s (k (s (k (s (k
  17. s))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s (k (s (k
  18. (s (k (s (k s))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s)))))
  19. (s (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k k))))))) (s (s (k
  20. s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s (k (s (k (s (k (s (k
  21. s))))))) (s (k (s (k (s (k (s (k (s (k s))))))))) (s (k (s (k (s (k (s (k (s
  22. (k (s (k s))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k
  23. s))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k
  24. s))))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k
  25. s))))))))))))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s
  26. (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k (s (k s))))))))) (s (k
  27. (s (k (s (k (s (k (s (k (s (k s))))))))))) (s (k (s (k (s (k (s (k (s (k (s
  28. (k (s (k s))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k
  29. s))))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k
  30. s))))))))))))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s
  31. (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k (s (k s))))))))) (s (k
  32. (s (k (s (k (s (k (s (k (s (k s))))))))))) (s (k (s (k (s (k (s (k (s (k (s
  33. (k (s (k s))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k
  34. s))))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k
  35. s))))))))))))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s
  36. (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k (s (k s))))))))) (s (k
  37. (s (k (s (k (s (k (s (k (s (k s))))))))))) (s (k (s (k (s (k (s (k (s (k (s
  38. (k (s (k s))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k
  39. s))))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (k
  40. s))))))))))))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s
  41. (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k (s (k s))))))))) (s (k
  42. (s (k (s (k (s (k (s (k (s (k s))))))))))) (s (k (s (k (s (k (s (k (s (k (s
  43. (k k))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k s))))))))))) (s (k (s (k
  44. (s (k (s (k (s (k (s (k (s (k s))))))))))))) (s (k (s (k (s (k (s (k (s (k
  45. (s (k (s (k (s (k s))))))))))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k
  46. (s (k s))))) (s (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k (s (k
  47. s))))))))) (s (k (s (k (s (k (s (k (s (k (s (k s))))))))))) (s (k (s (k (s
  48. (k (s (k (s (k (s (k (s (k s))))))))))))) (s (k (s (k (s (k (s (k (s (k (s
  49. (k (s (k (s (k s))))))))))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s
  50. (k s))))) (s (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k (s (k
  51. s))))))))) (s (k (s (k (s (k (s (k (s (k (s (k s))))))))))) (s (k (s (k (s
  52. (k (s (k (s (k (s (k (s (k s))))))))))))) (s (k (s (k (s (k (s (k (s (k (s
  53. (k (s (k (s (k s))))))))))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s
  54. (k s))))) (s (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k (s (k
  55. s))))))))) (s (k (s (k (s (k (s (k (s (k (s (k s))))))))))) (s (k (s (k (s
  56. (k (s (k (s (k (s (k (s (k s))))))))))))) (s (k (s (k (s (k (s (k (s (k (s
  57. (k (s (k (s (k s))))))))))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k (s
  58. (k s))))) (s (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k (s (k
  59. s))))))))) (s (k (s (k (s (k (s (k (s (k (s (k s))))))))))) (s (k (s (k (s
  60. (k (s (k (s (k (s (k (s (k s))))))))))))) (s (k (s (k (s (k (s (k (s (k (s
  61. (k (s (k (s (k s))))))))))))))) (s (s (k s) (s (k k) (s (k s) (s (k (s (k
  62. s))) (s (k (s (k (s (k s))))) (s (k (s (k (s (k k))))) (s (k (s (k (s (k
  63. s))))) (s (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k k))))))) (s
  64. (k (s (k (s (k (s (k s))))))) (s (k (s (k (s (k (s (k (s (k s))))))))) (s (s
  65. (k s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s
  66. (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k
  67. (s (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k)
  68. (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s
  69. (k s) (s (k k) (s (k s) (s (k k) (s k k))))))))))))))))))))))))) (s (k (s (k
  70. k))) (s (k (s (k (s (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s
  71. (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s (k
  72. s) (s (k k) (s (k s) (s (k k) (s k k))))))))))))))))))))))) (s (k (s (k k)))
  73. (s (k (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k
  74. (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k
  75. k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s
  76. (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (s (k s)
  77. (s (k k) (s k k))) (k (s k k)))))))))))))))))))))) (s (k k) (s (k (s (k (s
  78. (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s
  79. (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s k k)))))))))))))))))))
  80. (s (k (s (k (s (k (s (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k)
  81. (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s k
  82. k))))))))))))))))))) (s (k (s (k (s (k k))))) (s (k (s (k (s (k (s (s (k s)
  83. (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s
  84. (k k) (s k k))))))))))))))))) (s (k (s (k (s (k k))))) (s (k (s (k (s (k (s
  85. (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s k
  86. k))))))))))))))) (s (k (s (k (s (k k))))) (s (k (s (k (s (s (k s) (s (k k)
  87. (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s (k k) (s k k))))))))))))) (s
  88. (k (s (k k))) (s (k (s (k (s (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s
  89. (k k) (s k k))))))))))) (s (k (s (k k))) (s (k (s (s (k s) (s (k k) (s (k s)
  90. (s (k k) (s (k s) (s (k k) (s k k))))))))) (s (k k) (s (k (s (s (k s) (s (k
  91. k) (s (k s) (s (k k) (s k k))))))) (s (k k) (s (k (s (s (k s) (s (k k) (s k
  92. k))))) (s (k k) (s (k (s (s k k))) (s (k k) (s k
  93. k))))))))))))))))))))))))))))))))))) (k (k (s (k (s (k (s (k (s (s k
  94. k))))))) (s (k (s (k (s (k k))))) (s (s (k s) (s (k k) (s (k s) (s (s (k s)
  95. (s (k k) (s k k))) (k (s k k)))))) (k (s (k k) (s k k)))))))))))))))))))) (k
  96. (s (k k) (s (k (s (k (s (k k))))) (s (k (s (k (s (k (s (k (s (k (s (s k
  97. k))))))))))) (s (k (s (k (s (k (s (k (s (k k))))))))) (s (s (k s) (s (k (s
  98. (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s)))
  99. (s (k (s (k k))) (s (k (s (s k k))) (s (k k) (s k k)))))))))) (k (s (s (k s)
  100. (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (s (k
  101. s) (s (k k) (s k k))) (k (s k k)))))))) (s (k k) (s (s (k s) (s (k (s (k
  102. s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k k)))))) (k (k
  103. (s k k)))))))))))))))))))))) (k (k (k (s (k (s (k (s (k (s (k (s (k (s (s k
  104. k))))))))))) (s (k (s (k (s (k (s (k (s (k k))))))))) (s (s (k s) (s (k (s
  105. (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s)))
  106. (s (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k k)))))))))) (s (k k)
  107. (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k
  108. k))) (s (s (k s) (s (k k) (s k k))) (k (s k k)))))))) (s (k k) (s (s (k s)
  109. (s (k (s (k s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k
  110. k)))))) (k (k (s k k)))))))))))))))))))))) (k (s (k (s (k (s (k (s (k (s (k
  111. (s (k (s (k (s (s k k))))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s
  112. (k k))))))))))))) (s (s (k s) (s (k k) (s (k s) (s (k (s (k s))) (s (k (s (k
  113. k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s
  114. (k (s (k s))) (s (k (s (k k))) (s (k (s (s k k))) (s (k k) (s k
  115. k)))))))))))))) (k (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k
  116. s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s
  117. (k (s (k k))) (s (k (s (s k k))) (s (k k) (s k k)))))))))))) (k (s (s (k s)
  118. (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s
  119. (k s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k k))))))))))
  120. (s (k k) (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s
  121. (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k k)))))))) (s (k k) (s
  122. (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k
  123. (s k k)))))) (k (k (s k k)))))))))))))))))))))))) (k (k (k (s (k (s (k (s (k
  124. (s (k k))))))) (s (k (s (k (s (k (s (k (s (s k k))))))))) (s (k (s (k (s (k
  125. (s (k k))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k
  126. s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k k)))))))) (s (k
  127. k) (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s k
  128. k))) (k (s k k)))))) (k (k (s k k))))))))))))))))))))) (k (k (k (k (k (k (s
  129. (k k) (s (k (s (s k k))) (s (k k) (s k k))))))))))))))))))))) (k (s (k (s (k
  130. (s (k (s (k k))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k (s (s k
  131. k))))))))))))))) (s (k (s (k (s (k (s (k (s (k (s (k (s (k k))))))))))))) (s
  132. (s (k s) (s (k k) (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k
  133. s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s
  134. (k (s (k k))) (s (k (s (s k k))) (s (k k) (s k k)))))))))))))) (k (s (s (k
  135. s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k
  136. (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (s k
  137. k))) (s (k k) (s k k)))))))))))) (k (s (s (k s) (s (k (s (k s))) (s (k (s (k
  138. k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s
  139. (s (k s) (s (k k) (s k k))) (k (s k k)))))))))) (s (k k) (s (s (k s) (s (k
  140. (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (s (k s) (s
  141. (k k) (s k k))) (k (s k k)))))))) (s (k k) (s (s (k s) (s (k (s (k s))) (s
  142. (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k k)))))) (k (k (s k
  143. k)))))))))))))))))))))))))) (k (k (s (k (s (k k))) (s (k (s (k k))) (s (k (s
  144. (k (s (k (s (k (s (k (s (s k k))))))))))) (s (k (s (k (s (k (s (k (s (k
  145. k))))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (k s))) (s
  146. (k (s (k k))) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (s k k))) (s (k k)
  147. (s k k)))))))))) (k (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s
  148. (k s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k k)))))))) (s
  149. (k k) (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s
  150. k k))) (k (s k k)))))) (k (k (s k k)))))))))))))))))))))))) (k (k (k (s (k
  151. (s (k k))) (s (k (s (k k))) (s (k (s (k (s (k (s (k (s (s k k))))))))) (s (k
  152. (s (k (s (k (s (k k))))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s
  153. (k (s (k s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k
  154. k)))))))) (s (k k) (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (s (k s)
  155. (s (k k) (s k k))) (k (s k k)))))) (k (k (s k k))))))))))))))))))))))) (k (s
  156. (k k) (s (k (s (k k))) (s (k (s (k k))) (s (k (s (k k))) (s (k (s (k (s (k
  157. k))))) (s (k (s (k (s (k (s (s k k))))))) (s (k (s (k (s (k k))))) (s (s (k
  158. s) (s (k (s (k s))) (s (k (s (k k))) (s (k (s (s k k))) (s (k k) (s k
  159. k)))))) (k (k (s k k)))))))))))))))))))))) (k (k (s (k (s (k k))) (s (k (s
  160. (k (s (k k))))) (s (k (s (k (s (k k))))) (s (k (s (k (s (k k))))) (s (k (s
  161. (k (s (k (s (s k k))))))) (s (k (s (k (s (k k))))) (s (s (k s) (s (k (s (k
  162. s))) (s (k (s (k k))) (s (k (s (s k k))) (s (k k) (s k k)))))) (k (k (s k
  163. k)))))))))))))))))) (k (k (s (k k) (s (s (k s) (s (k (s (s k k))) (s (k k)
  164. (s k k)))) (s (k k) (s k k))))))))))) (k (s (k (s (s (k s) (s (k k) (s (k s)
  165. (s (k (s (s k k))) (s (k k) (s k k)))))))) (s (k (s (k (s (k k))))) (s (s (k
  166. s) (s (k k) (s (k s) (s (k (s (s k k))) (s (k k) (s k k)))))) (k (s (k k) (s
  167. k k)))))))))))) (k (k (s (s (k s) (s (k k) (s (k s) (s (k (s (s k k))) (s (k
  168. k) (s k k)))))) (s (k (s (k k))) (s (s (k s) (s (k (s (s k k))) (s (k k) (s
  169. k k)))) (s (k k) (s k k)))))))))))) (k (s (k (s (s (k s) (s (k k) (s (k s)
  170. (s (k (s (s k k))) (s (k k) (s k k)))))))) (s (k (s (k (s (k k))))) (s (s (k
  171. s) (s (k k) (s (k s) (s (k (s (s k k))) (s (k k) (s k k)))))) (k (s (s (k s)
  172. (s (k (s (s k k))) (s (k k) (s k k)))) (s (k k) (s k k))))))))))))) (k (k (s
  173. (s (k s) (s (k k) (s (k s) (s (k (s (s k k))) (s (k k) (s k k)))))) (s (k (s
  174. (k k))) (s (s (k s) (s (k (s (s k k))) (s (k k) (s k k)))) (s (s (k s) (s (k
  175. (s (s k k))) (s (k k) (s k k)))) (s (k k) (s k k))))))))))))))))))) (s (k k)
  176. (s (k (s (k (s (k k))))) (s (k (s (k (s (k k))))) (s (k (s (k (s (k k)))))
  177. (s (k (s (k (s (k k))))) (s (s (k s) (s (k k) (s (k s) (s (k k) (s (k s) (s
  178. (k k) (s k k))))))) (k (s (s (k s) (s (k k) (s (k s) (s (k (s (s k k))) (s
  179. (k k) (s k k)))))) (k (s (k k) (s k k))))))))))))))) (k (k (k (k (s k
  180. k))))))))) (k (k (k (k (s (s (k s) (s (k k) (s k k))) (s (s (k s) (s (k k)
  181. (s k k))) (k (s k k)))))))))))) (k (k (k (k (s (s (k s) (s (k k) (s (k s) (s
  182. (k (s (k s))) (s (k (s (k k))) (s (s (k s) (s (k k) (s k k))) (k (s k
  183. k)))))))) (k (s (s (k s) (s (k (s (k s))) (s (k (s (k k))) (s (s (k s) (s (k
  184. k) (s k k))) (k (s k k)))))) (k (k (s k k)))))))))))))) (k (k (k (k (s (k (s
  185. (s k k))) (s (k k) (s k k)))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement