language: Haskell (ghc-7.4.1)
date: 328 days 22 hours ago
link:
visibility: public 
1
2
3
4
5
6

runtimetype :: Show a =>  a -> Integer -> String
runtimetype x n = case n of 
  0 -> show x
  _ -> runtimetype (Just x) (n-(1::Integer)) 
  
main = interact $ (++"\n") . runtimetype () . read