- fures = (fu const inputs (addrs!(0 :: Index D3)) (fuss!(0 :: Index D3))) +> (
- (fu (+) inputs (addrs!(1 :: Index D3)) (fuss!(1 :: Index D3))) +> (
- (fu (-) inputs (addrs!(2 :: Index D3)) (fuss!(2 :: Index D3))) +> ( singleton
- (fu (*) inputs (addrs!(3 :: Index D3)) (fuss!(3 :: Index D3))))))
- (fuss', outputs) = unzip fures
- inputs = 0 +> (1 +> (input +> outputs))
- out = head outputs
+ fuss' = (fu const inputs (addrs!(0 :: Index D3))) +> (
+ (fu (+) inputs (addrs!(1 :: Index D3))) +> (
+ (fu (-) inputs (addrs!(2 :: Index D3))) +> (
+ (fu (*) inputs (addrs!(3 :: Index D3))) +> empty)))
+ inputs = 0 +> (1 +> (input +> fuss))
+ out = head fuss