foo c = case c of {_->c} : []