JPMoresmau

type Value = Float
type Neuron= ([Value],Value)
type Network = ([Neuron],[Neuron])

class DeepSeq a where
        deepSeq :: a -> a        
        deepSeq x=x `seq` x

instance DeepSeq Value