badmap : List Int -> List Int
badmap = map (\0 x => 2)