Standard input is empty
[1 of 1] Compiling Main ( prog.hs, prog.o )
prog.hs:4:15:
Couldn't match expected type `a' with actual type `Int'
`a' is a rigid type variable bound by
the type signature for fn :: [Char] -> a at prog.hs:3:7
In the return type of a call of `length'
In the second argument of `(*)', namely `length list'
In the expression: 2 * length list
Standard output is empty