Digital circuit simulator in Haskell (SICP 3.3)
entropicthoughts.com