Singapore has fined a smoker a record S$19,800 ($15,000) for throwing cigarette butts out of his flat window, the National Environment Agency has said.