nsform :: TransformAlgorithm -> Transform
simpleTransform a = Transform (Identified a) Nothing []

data Tr
simpleTransform :: TransformAlgorithm -> Transform
simpleTransform a = Transform (Identified a) Nothing []
simpleTransform a = Transform (Identified a) Nothing []