aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/BangPatterns/bang-where.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE BangPatterns #-}

module BangPatternsWhere where

scale :: Int -> Int -> Int
scale factor input = go input
  where
    go !x = factor * x