pasberth

class DoNotation

  class DSL

    def initialize(&block)

      @first_lets = []
      @proc_sources = []
      @variables = Hash[]

pasberth

--ちんちんっぽいことするやつ
import System.Random
chimpo :: String -> IO String
randomString :: String -> IO String

chimpo c = do s <- randomString c
              if take 4 c == "ABCDE"
		 then return $ c ++ ("なんか終わりました" ++ (show (length c )))
		 else chimpo s