id,summary,reporter,owner,description,type,status,priority,milestone,component,version,resolution,keywords,cc
54,INTERNAL ERROR: build,guest,nobody,"{{{
Main> fvsp 450
INTERNAL ERROR: build
Please report this Hugs bug to http://hackage.haskell.org/trac/hugs
}}}
code: 
{{{
pots :: Num a => a -> [a]
pots x = scanl (*) 1 (repeat x)

factoriales :: [Integer]
factoriales = scanl (*) 1 [1..]

fvsp :: Integer -> Int
fvsp n = length (takeWhile not (zipWith (<) (pots n) factoriales))
}}}",defect,new,major,,hugs,current,,,